17 lines
301 B
Haskell
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" }
|