[project @ 1996-01-18 16:33:17 by partain]

[ghc-hetmet.git] / ghc / lib / glaExts / MainIO13.lhs

diff --git a/ghc/lib/glaExts/MainIO13.lhs b/ghc/lib/glaExts/MainIO13.lhs
index a650d09..7e11919 100644 (file)
--- a/ghc/lib/glaExts/MainIO13.lhs
+++ b/ghc/lib/glaExts/MainIO13.lhs
@@ -17,6 +17,8 @@ import List           ( (++) )
 import Prel            ( (.), not )
 import PS              ( _PackedString, _unpackPS )
 import Text
+import TyComplex
+import TyArray
 
 mainPrimIO13 :: PrimIO ()
 
@@ -24,7 +26,7 @@ mainPrimIO13 s
   = case (main s) of { (result, s2@(S# _)) ->
     case result   of
       Right ()  -> ( (), s2 )
-      Left  err -> error ("I/O error: "++shows err "\n")
+      Left  err -> error ("I/O error: "++showsPrec 0 err "\n")
     }
 \end{code}