[project @ 1996-01-08 20:28:12 by partain]

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

diff --git a/ghc/lib/prelude/TyComplex.hs b/ghc/lib/prelude/TyComplex.hs
new file mode 100644 (file)
index 0000000..b1a91ca
--- /dev/null
+++ b/ghc/lib/prelude/TyComplex.hs
@@ -0,0 +1,10 @@
+module PreludeComplex ( Complex(..) ) where
+
+-- infix  6  :+
+
+data {- (RealFloat a) => -} Complex a = a :+ a  deriving () -- (Eq,{-ToDo:Binary,-}Text)
+
+--  (NB: compiler's builtin idea of "data Complex ..." must also
+--     omit the context!)
+
+-- {-# SPECIALIZE data Complex Double# #-}