From: Ian Lynagh <igloo@earth.li>
Date: Fri, 25 Aug 2006 01:02:19 +0000 (+0000)
Subject: Fix rewriting of Control.Exception.Assert; fixes 875
X-Git-Tag: Before_FC_branch_merge~121
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=70f6cbd1695128f2685085d423c09e4cb889d91e;hp=6c6820dba847a1d2da90c67debca0224b1744f93

Fix rewriting of Control.Exception.Assert; fixes 875
---

diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs
index 54ed7ba..99d0767 100644
--- a/compiler/rename/RnExpr.lhs
+++ b/compiler/rename/RnExpr.lhs
@@ -971,6 +971,9 @@ mkBreakpointExpr' breakpointFunc scope
 
 srcSpanLit :: SrcSpan -> HsExpr Name
 srcSpanLit span = HsLit (HsString (mkFastString (showSDoc (ppr span))))
+
+srcSpanPrimLit :: SrcSpan -> HsExpr Name
+srcSpanPrimLit span = HsLit (HsStringPrim (mkFastString (showSDoc (ppr span))))
 \end{code}
 
 %************************************************************************
@@ -986,7 +989,7 @@ mkAssertErrorExpr
   = getSrcSpanM    			`thenM` \ sloc ->
     let
 	expr = HsApp (L sloc (HsVar assertErrorName)) 
-		     (L sloc (srcSpanLit sloc))
+		     (L sloc (srcSpanPrimLit sloc))
     in
     returnM (expr, emptyFVs)
 \end{code}