[project @ 1998-12-02 13:17:09 by simonm]

[ghc-hetmet.git] / ghc / compiler / basicTypes / BasicTypes.lhs

diff --git a/ghc/compiler/basicTypes/BasicTypes.lhs b/ghc/compiler/basicTypes/BasicTypes.lhs
index 9ea2e6f..cfd79b1 100644 (file)
--- a/ghc/compiler/basicTypes/BasicTypes.lhs
+++ b/ghc/compiler/basicTypes/BasicTypes.lhs
@@ -1,5 +1,5 @@
 %
-% (c) The GRASP/AQUA Project, Glasgow University, 1997
+% (c) The GRASP/AQUA Project, Glasgow University, 1997-1998
 %
 \section[BasicTypes]{Miscellanous types}
 
@@ -17,7 +17,7 @@ module BasicTypes(
        Version, Arity, 
        Unused, unused,
        Module, moduleString, pprModule,
-       Fixity(..), FixityDirection(..),
+       Fixity(..), FixityDirection(..), StrictnessMark(..),
        NewOrData(..), IfaceFlavour(..), TopLevelFlag(..), RecFlag(..)
    ) where
 
@@ -147,6 +147,7 @@ instance Eq Fixity where            -- Used to determine if two fixities conflict
 data NewOrData
   = NewType    -- "newtype Blah ..."
   | DataType   -- "data Blah ..."
+  | EnumType   -- Enumeration; all constructors are nullary
   deriving( Eq )       -- Needed because Demand derives Eq
 \end{code}