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

testsuite/dynload/io/TestIO.hs

@@ -1,4 +1,3 @@
-{-# OPTIONS -fglasgow-exts -cpp #-}
 --
 -- Copyright (c) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
 -- LGPL version 2.1 or later (see http://www.gnu.org/copyleft/lesser.html)
@@ -9,6 +8,8 @@ module TestIO ( resource_dyn )  where
 import API
 import Data.Dynamic
 
+import Control.Exception (SomeException, catch)
+
 import System.IO
 import System.Posix.Types   ( ProcessID, Fd )
 import System.Posix.Process ( forkProcess, executeFile, getProcessID )
@@ -26,7 +27,7 @@ resource = testio { field = date }
 -- call a shell command , returning it's output
 --
 date :: IO String
-date = do (hdl,_,_) <- catch (popen "/bin/date") (\_->error "popen failed")
+date = do (hdl,_,_) <- catch (popen "/bin/date") (\(_ :: SomeException)->error "popen failed")
           hGetLine hdl 
 
 ------------------------------------------------------------------------

testsuite/dynload/io/api/API.hs

@@ -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" }

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