diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-04-11 17:03:18 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-04-30 01:56:56 -0400 |
| commit | 8bfb0219587b969d5c8f723c46d433e9493958b4 (patch) | |
| tree | 7ed243039324e5a85905985589d7defd91543625 /compiler/GHC/StgToCmm/Prof.hs | |
| parent | 10d15f1ec4bab4dd6152d87fc66e61658a705eb3 (diff) | |
| download | haskell-8bfb0219587b969d5c8f723c46d433e9493958b4.tar.gz | |
Unit: split and rename modules
Introduce GHC.Unit.* hierarchy for everything concerning units, packages
and modules.
Update Haddock submodule
Diffstat (limited to 'compiler/GHC/StgToCmm/Prof.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/Prof.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/StgToCmm/Prof.hs b/compiler/GHC/StgToCmm/Prof.hs index ae123fd9c7..bd045ca465 100644 --- a/compiler/GHC/StgToCmm/Prof.hs +++ b/compiler/GHC/StgToCmm/Prof.hs @@ -39,7 +39,7 @@ import GHC.Cmm.CLabel import GHC.Types.CostCentre import GHC.Driver.Session import GHC.Data.FastString -import GHC.Types.Module as Module +import GHC.Unit.Module as Module import GHC.Utils.Outputable import Control.Monad @@ -220,8 +220,8 @@ emitCostCentreDecl cc = do | otherwise = zero platform -- NB. bytesFS: we want the UTF-8 bytes here (#5559) ; label <- newByteStringCLit (bytesFS $ costCentreUserNameFS cc) - ; modl <- newByteStringCLit (bytesFS $ Module.moduleNameFS - $ Module.moduleName + ; modl <- newByteStringCLit (bytesFS $ moduleNameFS + $ moduleName $ cc_mod cc) ; loc <- newByteStringCLit $ bytesFS $ mkFastString $ showPpr dflags (costCentreSrcSpan cc) |