remove empty dir

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

diff --git a/ghc/compiler/ndpFlatten/FlattenInfo.hs b/ghc/compiler/ndpFlatten/FlattenInfo.hs
index 4a08c69..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,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