summaryrefslogtreecommitdiff
path: root/compiler/GHC/StgToCmm/ExtCode.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/StgToCmm/ExtCode.hs')
-rw-r--r--compiler/GHC/StgToCmm/ExtCode.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/StgToCmm/ExtCode.hs b/compiler/GHC/StgToCmm/ExtCode.hs
index e0b20021b3..987df399af 100644
--- a/compiler/GHC/StgToCmm/ExtCode.hs
+++ b/compiler/GHC/StgToCmm/ExtCode.hs
@@ -162,7 +162,7 @@ newLabel name = do
addLabel name (mkBlockId u)
return (mkBlockId u)
--- | Add add a local function to the environment.
+-- | Add a local function to the environment.
newFunctionName
:: FastString -- ^ name of the function
-> UnitId -- ^ package of the current module