summaryrefslogtreecommitdiff
path: root/compiler/GHC/Core/Opt/WorkWrap/Utils.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/Core/Opt/WorkWrap/Utils.hs')
-rw-r--r--compiler/GHC/Core/Opt/WorkWrap/Utils.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Opt/WorkWrap/Utils.hs b/compiler/GHC/Core/Opt/WorkWrap/Utils.hs
index c2287916db..a88f3d8d45 100644
--- a/compiler/GHC/Core/Opt/WorkWrap/Utils.hs
+++ b/compiler/GHC/Core/Opt/WorkWrap/Utils.hs
@@ -377,8 +377,8 @@ We use the state-token type which generates no code.
-}
mkWorkerArgs :: Id -- The wrapper Id
- -> Bool
- -> [Var]
+ -> Bool -- Allows fun-to-thunk
+ -> [Var] -- Args
-> Type -- Type of body
-> ([Var], -- Lambda bound args
[Var]) -- Args at call site