ghc/lib/prelude/TyComplex.hs

   1 module PreludeComplex ( Complex(..) ) where
   2
   3 -- infix  6  :+
   4
   5 data {- (RealFloat a) => -} Complex a = a :+ a  deriving () -- (Eq,{-ToDo:Binary,-}Text)
   6
   7 --  (NB: compiler's builtin idea of "data Complex ..." must also
   8 --      omit the context!)
   9
  10 {-# SPECIALIZE data Complex Double# #-}