diff options
Diffstat (limited to 'compiler/codeGen/StgCmm.hs')
| -rw-r--r-- | compiler/codeGen/StgCmm.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/codeGen/StgCmm.hs b/compiler/codeGen/StgCmm.hs index 6f404f04a0..3e0fc4dd65 100644 --- a/compiler/codeGen/StgCmm.hs +++ b/compiler/codeGen/StgCmm.hs @@ -47,7 +47,7 @@ codeGen :: DynFlags -> CollectedCCs -- (Local/global) cost-centres needing declaring/registering. -> [(StgBinding,[(Id,[Id])])] -- Bindings to convert, with SRTs -> HpcInfo - -> IO [CmmPgm] -- Output + -> IO [CmmGroup] -- Output codeGen dflags this_mod data_tycons cost_centre_info stg_binds hpc_info @@ -213,7 +213,7 @@ For charlike and intlike closures there is a fixed array of static closures predeclared. -} -cgTyCon :: TyCon -> FCode CmmPgm -- All constructors merged together +cgTyCon :: TyCon -> FCode CmmGroup -- All constructors merged together cgTyCon tycon = do { constrs <- mapM (getCmm . cgDataCon) (tyConDataCons tycon) @@ -230,7 +230,7 @@ cgTyCon tycon ; return (concat (extra ++ constrs)) } -cgEnumerationTyCon :: TyCon -> FCode [CmmPgm] +cgEnumerationTyCon :: TyCon -> FCode [CmmGroup] cgEnumerationTyCon tycon | isEnumerationTyCon tycon = do { tbl <- getCmm $ |