X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FndpFlatten%2FFlattenMonad.hs;h=9f89563f6a3ed7d8ab4ed64539fa27e8c0f8ba43;hb=4307f28b4d201d71a11dd304796ce7319fbb3345;hp=944d10a536bc74a15ae47a2f4f8a9122915ee99d;hpb=071c8bcdf514b746a4f015a02f2da92da7e4a5b7;p=ghc-hetmet.git

diff --git a/ghc/compiler/ndpFlatten/FlattenMonad.hs b/ghc/compiler/ndpFlatten/FlattenMonad.hs
index 944d10a..9f89563 100644
--- a/ghc/compiler/ndpFlatten/FlattenMonad.hs
+++ b/ghc/compiler/ndpFlatten/FlattenMonad.hs
@@ -428,8 +428,7 @@ mk'indexOfP ty a1 a2  = mkFunApp indexOfPName [Type ty, a1, a2]
 --
 ctxtVarErr   :: FlattenState -> Var
 ctxtVarErr s  = case ctxtVar s of
-		  Nothing -> panic "FlattenMonad.ctxtVarErr: No context \
-				   \variable available!"
+		  Nothing -> panic "FlattenMonad.ctxtVarErr: No context variable available!"
 		  Just v  -> v
 
 -- given the name of a known function and a set of arguments (needs to include