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

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

diff --git a/ghc/lib/prelude/IList.hs b/ghc/lib/prelude/IList.hs
index 1b981d2..38eca7e 100644 (file)
--- a/ghc/lib/prelude/IList.hs
+++ b/ghc/lib/prelude/IList.hs
@@ -1,13 +1,21 @@
 module PreludeBuiltin where
 
-import Prel            ( (&&) )
+import Prel            ( (&&), atan2 )
 import Cls
 import Core
+import IBool
 import IChar
+import IComplex
+import IDouble
+import IFloat
 import IInt
+import IInteger
+import ITup2
 import List            ( (++) )
 import PS              ( _PackedString, _unpackPS )
 import Text
+import TyArray
+import TyComplex
 
 instance (Eq a) => Eq [a]  where
     []     == []     = True    
@@ -34,30 +42,66 @@ instance (Ord a) => Ord [a] where
                                 _EQ -> _tagCmp xs ys
 
 instance  (Text a) => Text [a]  where
-    readsPrec p = readList
-    showsPrec p = showList
+    readsPrec p    = readList
+    showsPrec p xs = showList xs
+    readList      = _readList (readsPrec 0)
+    showList       = _showList (showsPrec 0)
 
 {-# SPECIALIZE instance Eq   [Char] #-}
 {-# SPECIALIZE instance Ord  [Char] #-}
 {-# SPECIALIZE instance Text [Char] #-}
 
+{-# SPECIALIZE instance Eq   [Int] #-}
+{-# SPECIALIZE instance Ord  [Int] #-}
+{-# SPECIALIZE instance Text [Int] #-}
+
+{-# SPECIALIZE instance Eq   [Integer] #-}
+{-# SPECIALIZE instance Ord  [Integer] #-}
+{-# SPECIALIZE instance Text [Integer] #-}
+
+--NO:{-# SPECIALIZE instance Eq   [Float] #-}
+--NO:{-# SPECIALIZE instance Ord  [Float] #-}
+--NO:{-# SPECIALIZE instance Text [Float] #-}
+
+{-# SPECIALIZE instance Eq   [Double] #-}
+{-# SPECIALIZE instance Ord  [Double] #-}
+{-# SPECIALIZE instance Text [Double] #-}
+
+{-# SPECIALIZE instance Eq   [Bool] #-}
+{-# SPECIALIZE instance Ord  [Bool] #-}
+{-# SPECIALIZE instance Text [Bool] #-}
+
+{-# SPECIALIZE instance Eq   [[Char]] #-}
+{-# SPECIALIZE instance Ord  [[Char]] #-}
+{-# SPECIALIZE instance Text [[Char]] #-}
+
+{-# SPECIALIZE instance Eq   [[Int]] #-}
+{-# SPECIALIZE instance Ord  [[Int]] #-}
+{-# SPECIALIZE instance Text [[Int]] #-}
+
+{-# SPECIALIZE instance Eq   [Complex Double] #-}
+{-# SPECIALIZE instance Text [Complex Double] #-}
+
+{-# SPECIALIZE instance Eq   [(Int,Int)] #-}
+
 #if defined(__OVERLAPPING_INSTANCES__)
 instance _CCallable   [Char]
 instance _CReturnable [Char]
 #endif
 
-{-# SPECIALIZE instance Eq   [Int]  #-}
-{-# SPECIALIZE instance Ord  [Int] #-}
-{-# SPECIALIZE instance Text [Int] #-}
-
-
 #if defined(__UNBOXED_INSTANCES__)
 
 {-# GENERATE_SPECS instance a :: Eq   [a] #-}
 {-# GENERATE_SPECS instance a :: Ord  [a] #-}
 {-# GENERATE_SPECS instance a :: Text [a] #-}
 
+#if defined(__OVERLAPPING_INSTANCES__)
 instance _CCallable   [Char#]
 instance _CReturnable [Char#]
+#endif
 
 #endif
+
+
+
+