X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FndpFlatten%2FFlattenInfo.hs;fp=compiler%2FndpFlatten%2FFlattenInfo.hs;h=0000000000000000000000000000000000000000;hp=928b5df181ebdacd43a5d1dd7d99b43d9a84e073;hb=e415eeaf6c7771488af24758ca5b9c22c42be3a6;hpb=c0f21abc488d367252d8dd9287c3c84cf50b9125 diff --git a/compiler/ndpFlatten/FlattenInfo.hs b/compiler/ndpFlatten/FlattenInfo.hs deleted file mode 100644 index 928b5df..0000000 --- a/compiler/ndpFlatten/FlattenInfo.hs +++ /dev/null @@ -1,42 +0,0 @@ --- $Id$ --- --- Copyright (c) 2002 Manuel M T Chakravarty & Gabriele Keller --- --- Information for modules outside of the flattening module collection. --- ---- DESCRIPTION --------------------------------------------------------------- --- --- This module contains information that is needed, and thus imported, by --- modules that are otherwise independent of flattening and may in fact be --- directly or indirectly imported by some of the flattening-related --- modules. This is to avoid cyclic module dependencies. --- ---- DOCU ---------------------------------------------------------------------- --- --- Language: Haskell 98 --- ---- TODO ---------------------------------------------------------------------- --- -module FlattenInfo ( - namesNeededForFlattening -) where - -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 --- `FlattenMonad' and `NDPCoreUtils' --- -namesNeededForFlattening :: FreeVars -namesNeededForFlattening - | not opt_Flatten = emptyFVs -- none without -fflatten - | otherwise - = mkFVs [fstName, andName, orName, lengthPName, replicatePName, mapPName, - bpermutePName, bpermuteDftPName, indexOfPName] - -- stuff from PrelGHC doesn't have to go here