testsuite/tests/ghc-regress/safeHaskell/safeLanguage/SafeLang11.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# LANGUAGE TemplateHaskell #-}
module Main where

import SafeLang11_A
import SafeLang11_B

$(mkSimpleClass ''A)

main = do
    let b = c :: A
    putStrLn $ "I have a value of A :: " ++ show b