[commit: ghc] master: Typo in debug print message (2eea4ac)

[Simon Peyton Jones]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/2eea4acb514e4b43de2a7ac7821ec85b6425a3ff

>---------------------------------------------------------------

commit 2eea4acb514e4b43de2a7ac7821ec85b6425a3ff
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Apr 22 13:35:37 2013 +0100

    Typo in debug print message

>---------------------------------------------------------------

 compiler/iface/IfaceSyn.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/iface/IfaceSyn.lhs b/compiler/iface/IfaceSyn.lhs
index 2cc0c63..7361f4b 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)