[project @ 2006-01-17 16:03:47 by simonmar]

[ghc-hetmet.git] / ghc / compiler / ndpFlatten / FlattenInfo.hs

diff --git a/ghc/compiler/ndpFlatten/FlattenInfo.hs b/ghc/compiler/ndpFlatten/FlattenInfo.hs
index b6e91e5..f759242 100644 (file)
--- a/ghc/compiler/ndpFlatten/FlattenInfo.hs
+++ b/ghc/compiler/ndpFlatten/FlattenInfo.hs
@@ -22,7 +22,7 @@ module FlattenInfo (
   namesNeededForFlattening
 ) where
 
-import CmdLineOpts (opt_Flatten)
+import StaticFlags (opt_Flatten)
 import NameSet     (FreeVars, emptyFVs, mkFVs)
 import PrelNames   (fstName, andName, orName, lengthPName, replicatePName,
                    mapPName, bpermutePName, bpermuteDftPName, indexOfPName)
@@ -31,7 +31,7 @@ import PrelNames   (fstName, andName, orName, lengthPName, replicatePName,
 -- this is a list of names that need to be available if flattening is
 -- performed (EXPORTED)
 --
--- * needs to be kept in sync with the names used in Core generation in
+--  * needs to be kept in sync with the names used in Core generation in
 --   `FlattenMonad' and `NDPCoreUtils'
 --
 namesNeededForFlattening :: FreeVars