From 7b9767b81f4f0b25b0c0402593be1182b9546bab Mon Sep 17 00:00:00 2001
From: Matthew Pickering <matthewtpickering@gmail.com>
Date: Wed, 27 Jan 2021 09:58:59 +0000
Subject: Use a newtype for CHeader and CStub in ForeignStubs

---
 compiler/GHC/StgToCmm/Prof.hs  | 3 ++-
 compiler/GHC/StgToCmm/Types.hs | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'compiler/GHC/StgToCmm')

diff --git a/compiler/GHC/StgToCmm/Prof.hs b/compiler/GHC/StgToCmm/Prof.hs
index 0176c3dbdc..f0b9b2ae8c 100644
--- a/compiler/GHC/StgToCmm/Prof.hs
+++ b/compiler/GHC/StgToCmm/Prof.hs
@@ -45,6 +45,7 @@ import GHC.Cmm.CLabel
 
 import GHC.Types.CostCentre
 import GHC.Types.IPE
+import GHC.Types.ForeignStubs
 import GHC.Data.FastString
 import GHC.Unit.Module as Module
 import GHC.Utils.Outputable
@@ -276,7 +277,7 @@ sizeof_ccs_words platform
    (ws,ms) = pc_SIZEOF_CostCentreStack (platformConstants platform) `divMod` platformWordSizeInBytes platform
 
 
-initInfoTableProv ::  [CmmInfoTable] -> InfoTableProvMap -> Module -> FCode SDoc
+initInfoTableProv ::  [CmmInfoTable] -> InfoTableProvMap -> Module -> FCode CStub
 -- Emit the declarations
 initInfoTableProv infos itmap this_mod
   = do
diff --git a/compiler/GHC/StgToCmm/Types.hs b/compiler/GHC/StgToCmm/Types.hs
index 944ff4b072..2788a4a7cc 100644
--- a/compiler/GHC/StgToCmm/Types.hs
+++ b/compiler/GHC/StgToCmm/Types.hs
@@ -15,6 +15,7 @@ module GHC.StgToCmm.Types
 import GHC.Prelude
 
 import GHC.Types.Basic
+import GHC.Types.ForeignStubs
 import GHC.Core.DataCon
 import GHC.Types.Name.Env
 import GHC.Types.Name.Set
@@ -87,7 +88,7 @@ data CgInfos = CgInfos
       -- either not exported of CAFFY.
   , cgLFInfos :: !ModuleLFInfos
       -- ^ LambdaFormInfos of exported closures in the current module.
-  , cgIPEStub :: !SDoc
+  , cgIPEStub :: !CStub
       -- ^ The C stub which is used for IPE information
   }
 
-- 
cgit v1.2.1