[project @ 1998-12-22 10:47:43 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..5045c78 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}
 
@@ -16,8 +16,7 @@ types that
 module BasicTypes(
        Version, Arity, 
        Unused, unused,
-       Module, moduleString, pprModule,
-       Fixity(..), FixityDirection(..),
+       Fixity(..), FixityDirection(..), StrictnessMark(..),
        NewOrData(..), IfaceFlavour(..), TopLevelFlag(..), RecFlag(..)
    ) where
 
@@ -66,22 +65,6 @@ type Version = Int
 
 %************************************************************************
 %*                                                                     *
-\subsection[Module]{The name of a module}
-%*                                                                     *
-%************************************************************************
-
-\begin{code}
-type Module   = FAST_STRING
-
-moduleString :: Module -> String
-moduleString mod = _UNPK_ mod
-
-pprModule :: Module -> SDoc
-pprModule m = ptext m
-\end{code}
-
-%************************************************************************
-%*                                                                     *
 \subsection[IfaceFlavour]{IfaceFlavour}
 %*                                                                     *
 %************************************************************************
@@ -147,6 +130,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}