2005-04-24 08:51:33 +00:00
|
|
|
{-# OPTIONS -fglasgow-exts #-}
|
|
|
|
|
|
|
|
module API where
|
|
|
|
|
2010-09-22 05:10:19 +00:00
|
|
|
import Data.Typeable
|
2005-04-24 08:51:33 +00:00
|
|
|
|
|
|
|
data TestIO = TestIO {
|
|
|
|
field :: IO String
|
|
|
|
}
|
|
|
|
|
|
|
|
instance Typeable TestIO where
|
|
|
|
#if __GLASGOW_HASKELL__ >= 603
|
|
|
|
typeOf i = mkTyConApp (mkTyCon "API.TestIO") []
|
|
|
|
#else
|
|
|
|
typeOf i = mkAppTy (mkTyCon "API.TestIO") []
|
|
|
|
#endif
|
|
|
|
|
|
|
|
testio :: TestIO
|
|
|
|
testio = TestIO { field = return "default value" }
|