[project @ 1998-04-06 18:38:36 by sof]

[ghc-hetmet.git] / ghc / compiler / coreSyn / CoreLint.lhs

diff --git a/ghc/compiler/coreSyn/CoreLint.lhs b/ghc/compiler/coreSyn/CoreLint.lhs
index 10d33e3..7352097 100644 (file)
--- a/ghc/compiler/coreSyn/CoreLint.lhs
+++ b/ghc/compiler/coreSyn/CoreLint.lhs
@@ -19,7 +19,7 @@ import CoreSyn
 import Bag
 import Kind            ( hasMoreBoxityInfo, Kind{-instance-} )
 import Literal         ( literalType, Literal{-instance-} )
-import Id              ( idType, isBottomingId, dataConRepType, isDataCon, isNewCon, isAlgCon,
+import Id              ( idType, isBottomingId, dataConRepType, isDataCon, isAlgCon,
                          dataConArgTys, GenId{-instances-},
                          emptyIdSet, mkIdSet,
                          unionIdSets, elementOfIdSet, IdSet,
@@ -27,7 +27,8 @@ import Id             ( idType, isBottomingId, dataConRepType, isDataCon, isNewCon, isAlgCo
                        )
 import Maybes          ( catMaybes )
 import Name            ( isLocallyDefined, getSrcLoc, Name{-instance NamedThing-},
-                         NamedThing(..) )
+                         NamedThing(..)
+                       )
 import PprCore
 import ErrUtils                ( doIfSet, ghcExit )
 import PrimOp          ( primOpType )