[project @ 2002-10-22 10:31:21 by simonpj]

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

diff --git a/ghc/compiler/ndpFlatten/FlattenInfo.hs b/ghc/compiler/ndpFlatten/FlattenInfo.hs
index 4a08c69..b6e91e5 100644 (file)
--- a/ghc/compiler/ndpFlatten/FlattenInfo.hs
+++ b/ghc/compiler/ndpFlatten/FlattenInfo.hs
@@ -37,7 +37,7 @@ import PrelNames   (fstName, andName, orName, lengthPName, replicatePName,
 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