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

2018-01-20 10:16:48 +09:00
parent 22dabddd73
commit 9eb6ab384e
16 changed files with 458 additions and 216 deletions
--- a/testsuite/dynload/io/prog/Main.hs
+++ b/testsuite/dynload/io/prog/Main.hs
@ -1,12 +1,13 @@

 import System.Plugins
+
 import API

 main = do
-        m_v   <- dynload "../TestIO.o" ["../api"] 
-                                       [] "resource_dyn"
-        case m_v of
-                LoadFailure _   -> error "couldn't compile"
-                LoadSuccess _ v -> do 
-                        s <- field v
-                        if s /= [] then print True else print False
+    m_v <- dynload "../TestIO.o" ["../api"]
+                                 [] "resource_dyn" :: IO (LoadStatus TestIO)
+    case m_v of
+      LoadFailure _ -> error "couldn't link"
+      LoadSuccess _ v -> do
+        s <- field v
+        if s /= "" then print True else print False