Fixes for GHC 8.x, archive loading, -dynamic, and file generation

This commit is contained in:
Mark Laws
2018-01-20 10:16:48 +09:00
parent 22dabddd73
commit 9eb6ab384e
16 changed files with 458 additions and 216 deletions

View File

@ -1,19 +1,20 @@
{-# OPTIONS -fglasgow-exts #-}
module API where
import Data.Typeable
data TestIO = TestIO {
field :: IO String
#if __GLASGOW_HASKELL__ >= 800
} deriving Typeable
#else
}
instance Typeable TestIO where
#if __GLASGOW_HASKELL__ >= 603
typeOf i = mkTyConApp (mkTyCon "API.TestIO") []
#else
typeOf i = mkAppTy (mkTyCon "API.TestIO") []
#endif
#endif
testio :: TestIO
testio = TestIO { field = return "default value" }