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
 
   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)
 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)
 --
 -- 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
 --   `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
     -- stuff from PrelGHC doesn't have to go here