diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-01-27 09:58:59 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-03-03 19:11:08 +0000 |
| commit | 7b9767b81f4f0b25b0c0402593be1182b9546bab (patch) | |
| tree | e446784907016969d94c30cd1beabed6af45d462 /compiler/GHC/StgToCmm.hs | |
| parent | f121ffe4be7dd156701d856fbc9afeaf50e7038e (diff) | |
| download | haskell-7b9767b81f4f0b25b0c0402593be1182b9546bab.tar.gz | |
Use a newtype for CHeader and CStub in ForeignStubs
Diffstat (limited to 'compiler/GHC/StgToCmm.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/StgToCmm.hs b/compiler/GHC/StgToCmm.hs index d60b52536f..d4ed196c91 100644 --- a/compiler/GHC/StgToCmm.hs +++ b/compiler/GHC/StgToCmm.hs @@ -48,6 +48,7 @@ import GHC.Types.Basic import GHC.Types.Var.Set ( isEmptyDVarSet ) import GHC.Types.Unique.FM import GHC.Types.Name.Env +import GHC.Types.ForeignStubs import GHC.Core.DataCon import GHC.Core.TyCon @@ -85,7 +86,7 @@ codeGen :: Logger -> CollectedCCs -- (Local/global) cost-centres needing declaring/registering. -> [CgStgTopBinding] -- Bindings to convert -> HpcInfo - -> Stream IO CmmGroup (SDoc, ModuleLFInfos) -- Output as a stream, so codegen can + -> Stream IO CmmGroup (CStub, ModuleLFInfos) -- Output as a stream, so codegen can -- be interleaved with output codeGen logger dflags this_mod ip_map@(InfoTableProvMap (UniqMap denv) _) data_tycons |