X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FMatch.lhs;fp=compiler%2FdeSugar%2FMatch.lhs;h=24c4680f7dddfe45696ebadf56dff5e802bcaf39;hb=79b22beb4d2eca1877d99d55838ba6ce69658405;hp=100a2b564310f0ce5c84b790feea1658126d607c;hpb=b6fcd8d1287ac70186c798013e270b0743eb7aa2;p=ghc-hetmet.git

diff --git a/compiler/deSugar/Match.lhs b/compiler/deSugar/Match.lhs
index 100a2b5..24c4680 100644
--- a/compiler/deSugar/Match.lhs
+++ b/compiler/deSugar/Match.lhs
@@ -687,11 +687,11 @@ matchEquations ctxt vars eqns_info rhs_ty
   = do	{ dflags <- getDOptsDs
 	; locn   <- getSrcSpanDs
 	; let   ds_ctxt      = DsMatchContext ctxt locn
-		error_string = matchContextErrString ctxt
+		error_doc = matchContextErrString ctxt
 
 	; match_result <- match_fun dflags ds_ctxt vars rhs_ty eqns_info
 
-	; fail_expr <- mkErrorAppDs pAT_ERROR_ID rhs_ty error_string
+	; fail_expr <- mkErrorAppDs pAT_ERROR_ID rhs_ty error_doc
 	; extractMatchResult match_result fail_expr }
   where 
     match_fun dflags ds_ctxt