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

[ghc-hetmet.git] / ghc / lib / prelude / IO.hs

diff --git a/ghc/lib/prelude/IO.hs b/ghc/lib/prelude/IO.hs
index 53aa104..9b8d0ff 100644 (file)
--- a/ghc/lib/prelude/IO.hs
+++ b/ghc/lib/prelude/IO.hs
@@ -6,9 +6,18 @@ module PreludeIO  where
 
 import Cls
 import Core
+import IBool
+import IChar
+import IDouble
+import IInt
+import IInteger
+import IList
+import ITup0
 import List            ( (++), foldr )
 import PS              ( _PackedString, _unpackPS )
 import Text
+import TyArray
+import TyComplex
 import TyIO
 
 -- File and channel names:
@@ -127,8 +136,11 @@ exit err   = appendChan stderr (msg ++ "\n") abort done
                                          OtherError s  -> s
                                          EOD           -> "EOD"
 
+{-# GENERATE_SPECS print a{+,(),Bool,Char,Int,Integer,Double,_PackedString,[Char],[Int],[[Char]],[[Int]]} #-} 
 print          :: (Text a) => a -> Dialogue
 print x                =  appendChan stdout (show x) exit done
+
+{-# GENERATE_SPECS prints a{+,(),Bool,Char,Int,Integer,Double,_PackedString,[Char],[Int],[[Char]],[[Int]]} #-} 
 prints          :: (Text a) => a -> String -> Dialogue
 prints x s     =  appendChan stdout (shows x s) exit done