X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fstranal%2FWwLib.lhs;h=e44e521c83b6dd09dd8e5782331743372a076862;hb=853e20a3eb86137cdb8accf69c6caa9db83a3d34;hp=54a167ddcbf7bb741cb09a6c7c5dfc3a54d06bbe;hpb=ca739e852566d7e0bfd594e6d7bf08da04f78d3c;p=ghc-hetmet.git diff --git a/ghc/compiler/stranal/WwLib.lhs b/ghc/compiler/stranal/WwLib.lhs index 54a167d..e44e521 100644 --- a/ghc/compiler/stranal/WwLib.lhs +++ b/ghc/compiler/stranal/WwLib.lhs @@ -295,7 +295,7 @@ mk_wrap_arg uniq ty dmd one_shot \begin{code} mkWWstr :: [Var] -- Wrapper args; have their demand info on them - -- *Includes type variables* + -- *Includes type variables* -> UniqSM ([Var], -- Worker args CoreExpr -> CoreExpr, -- Wrapper body, lacking the worker call -- and without its lambdas