diff options
Diffstat (limited to 'compiler/GHC/StgToJS/UnitUtils.hs')
| -rw-r--r-- | compiler/GHC/StgToJS/UnitUtils.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/compiler/GHC/StgToJS/UnitUtils.hs b/compiler/GHC/StgToJS/UnitUtils.hs index 2eb37ca72d..61886f43f0 100644 --- a/compiler/GHC/StgToJS/UnitUtils.hs +++ b/compiler/GHC/StgToJS/UnitUtils.hs @@ -7,11 +7,13 @@ module GHC.StgToJS.UnitUtils ) where -import GHC.Prelude + import GHC.Data.ShortText as ST import GHC.Unit.Module import GHC.Utils.Encoding +import GHC.Prelude + unitModuleString :: Module -> String unitModuleString mod = mconcat [ unitIdString (moduleUnitId mod) @@ -19,8 +21,8 @@ unitModuleString mod = mconcat , moduleNameString (moduleName mod) ] --- | the global linkable unit of a module exports this symbol, depend on it to include that unit --- (used for cost centres) +-- | the global linkable unit of a module exports this symbol, depend on it to +-- include that unit (used for cost centres) moduleGlobalSymbol :: Module -> ShortText moduleGlobalSymbol m = mconcat [ "h$" |