diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-04-22 13:35:37 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-04-23 09:12:41 +0100 |
| commit | 2eea4acb514e4b43de2a7ac7821ec85b6425a3ff (patch) | |
| tree | ec55065861ee51f277094cb51dbbd94563d95058 | |
| parent | 15da8cafc07acc75fc0e148846125fd131c0717e (diff) | |
| download | haskell-2eea4acb514e4b43de2a7ac7821ec85b6425a3ff.tar.gz | |
Typo in debug print message
| -rw-r--r-- | compiler/iface/IfaceSyn.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/iface/IfaceSyn.lhs b/compiler/iface/IfaceSyn.lhs index 2cc0c63f4c..7361f4bd06 100644 --- a/compiler/iface/IfaceSyn.lhs +++ b/compiler/iface/IfaceSyn.lhs @@ -767,7 +767,7 @@ instance Outputable IfaceUnfolding where pprParendIfaceExpr e] ppr (IfLclWrapper a wkr) = ptext (sLit "Worker(lcl):") <+> ppr wkr <+> parens (ptext (sLit "arity") <+> int a) - ppr (IfExtWrapper a wkr) = ptext (sLit "Worker(ext0:") <+> ppr wkr + ppr (IfExtWrapper a wkr) = ptext (sLit "Worker(ext):") <+> ppr wkr <+> parens (ptext (sLit "arity") <+> int a) ppr (IfDFunUnfold ns) = ptext (sLit "DFun:") <+> brackets (pprWithCommas ppr ns) |