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)
-- 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