20 lines
391 B
Haskell
Raw Normal View History

2005-04-24 08:51:33 +00:00
{-# OPTIONS -fglasgow-exts #-}
module API where
import AltData.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" }