diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-03-29 14:34:54 +0000 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-05-10 15:01:01 -0400 |
| commit | 0edf15e8092033c5f74f37308489a49a4e00ce3e (patch) | |
| tree | 80c7581057361b42eb2a26f5ca99fce4adc5b126 /compiler/GHC/Driver/Main.hs | |
| parent | 86c77b36628dcce7bc9b066fc24c8c521fecc3ee (diff) | |
| download | haskell-wip/caf-cleanups.tar.gz | |
Add few cleanups of the CAF logicwip/caf-cleanups
Give the NameSet of non-CAFfy names a proper newtype to distinguish it
from all of the other NameSets floating about.
Diffstat (limited to 'compiler/GHC/Driver/Main.hs')
| -rw-r--r-- | compiler/GHC/Driver/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Driver/Main.hs b/compiler/GHC/Driver/Main.hs index d01264ca55..6cc61246b9 100644 --- a/compiler/GHC/Driver/Main.hs +++ b/compiler/GHC/Driver/Main.hs @@ -1384,7 +1384,7 @@ hscWriteIface dflags iface no_change mod_location = do -- | Compile to hard-code. hscGenHardCode :: HscEnv -> CgGuts -> ModLocation -> FilePath - -> IO (FilePath, Maybe FilePath, [(ForeignSrcLang, FilePath)], NameSet) + -> IO (FilePath, Maybe FilePath, [(ForeignSrcLang, FilePath)], NonCaffySet) -- ^ @Just f@ <=> _stub.c is f hscGenHardCode hsc_env cgguts location output_filename = do let CgGuts{ -- This is the last use of the ModGuts in a compilation. @@ -1541,7 +1541,7 @@ doCodeGen :: HscEnv -> Module -> [TyCon] -> CollectedCCs -> [StgTopBinding] -> HpcInfo - -> IO (Stream IO CmmGroupSRTs NameSet) + -> IO (Stream IO CmmGroupSRTs NonCaffySet) -- Note we produce a 'Stream' of CmmGroups, so that the -- backend can be run incrementally. Otherwise it generates all -- the C-- up front, which has a significant space cost. |