Commit 70f6cbd1 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix rewriting of Control.Exception.Assert; fixes 875

parent 6c6820db
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment