blob: f6fce3b73f57a28145431004f38e005881d08e72 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE Safe #-}
module Main where
import SafeLang12_A
import SafeLang12_B
$(mkSimpleClass ''A)
main = do
let b = c :: A
putStrLn $ "I have a value of A :: " ++ show b
|