X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FndpFlatten%2FFlattenInfo.hs;h=f759242455f00026b9c72246ac7e3653817a184e;hb=28a464a75e14cece5db40f2765a29348273ff2d2;hp=4a08c69ba3d8fabbd0f533bfdc74ac73ebfde05f;hpb=10fcd78ccde892feccda3f5eacd221c1de75feea;p=ghc-hetmet.git

diff --git a/ghc/compiler/ndpFlatten/FlattenInfo.hs b/ghc/compiler/ndpFlatten/FlattenInfo.hs
index 4a08c69..f759242 100644
--- 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,13 +31,13 @@ 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
 namesNeededForFlattening
   | not opt_Flatten = emptyFVs		-- none without -fflatten
-  | otherwise       = mkFVs
-    [fstName, andName, orName, lengthPName, replicatePName, mapPName,
-    bpermutePName, bpermuteDftPName, indexOfPName]
+  | otherwise
+  = mkFVs [fstName, andName, orName, lengthPName, replicatePName, mapPName,
+	   bpermutePName, bpermuteDftPName, indexOfPName]
     -- stuff from PrelGHC doesn't have to go here