2005-09-03 04:45:14 +00:00

17 lines
301 B
Haskell

{-# OPTIONS -fglasgow-exts #-}
module API where
import Data.Dynamic
data TestIO = TestIO {
field :: IO String
}
deriving (Typeable, Show)
instance Show (IO String) where
show _ = "<<io action>>"
testio :: TestIO
testio = TestIO { field = return "default value" }