diff options
| author | Ian Lynagh <igloo@earth.li> | 2006-08-25 01:02:19 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2006-08-25 01:02:19 +0000 |
| commit | 70f6cbd1695128f2685085d423c09e4cb889d91e (patch) | |
| tree | eec608a993a3613cf7b4043e66fda1363b9a6af2 | |
| parent | 6c6820dba847a1d2da90c67debca0224b1744f93 (diff) | |
| download | haskell-70f6cbd1695128f2685085d423c09e4cb889d91e.tar.gz | |
Fix rewriting of Control.Exception.Assert; fixes 875
| -rw-r--r-- | compiler/rename/RnExpr.lhs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs index 54ed7ba832..99d0767a8e 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} |