[commit: ghc] ghc-7.2: Reformat warning slightly (2066a40)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-7.2

http://hackage.haskell.org/trac/ghc/changeset/2066a40b3f3fe51a58682738192e47e9fec7e42c

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

commit 2066a40b3f3fe51a58682738192e47e9fec7e42c
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Jun 30 17:47:19 2011 +0100

    Reformat warning slightly

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

 compiler/coreSyn/CoreSubst.lhs |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/compiler/coreSyn/CoreSubst.lhs b/compiler/coreSyn/CoreSubst.lhs
index f730fdb..7df3f52 100644
--- a/compiler/coreSyn/CoreSubst.lhs
+++ b/compiler/coreSyn/CoreSubst.lhs
@@ -252,7 +252,8 @@ lookupIdSubst doc (Subst in_scope ids _ _) v
   | Just e  <- lookupVarEnv ids       v = e
   | Just v' <- lookupInScope in_scope v = Var v'
 	-- Vital! See Note [Extending the Subst]
-  | otherwise = WARN( True, ptext (sLit "CoreSubst.lookupIdSubst") <+> ppr v $$ ppr in_scope $$ doc) 
+  | otherwise = WARN( True, ptext (sLit "CoreSubst.lookupIdSubst") <+> doc <+> ppr v 
+                            $$ ppr in_scope) 
 		Var v
 
 -- | Find the substitution for a 'TyVar' in the 'Subst'