X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnExpr.lhs;h=103badca9e9758e02e212ee9a4b2c5c4e25250d5;hp=dcb8b97a43c11fa3c41a5ba6af2dc1f45d887935;hb=174dccda5a8213f9a777ddf5230effef6b5f464d;hpb=692cbe67dee453cf47b2c5a11527f08fa6d1899a

diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs
index dcb8b97..103badc 100644
--- a/compiler/rename/RnExpr.lhs
+++ b/compiler/rename/RnExpr.lhs
@@ -1135,7 +1135,7 @@ segsToStmts ((defs, uses, fwds, ss) : segs) fvs_later
 
 \begin{code}
 srcSpanPrimLit :: SrcSpan -> HsExpr Name
-srcSpanPrimLit span = HsLit (HsStringPrim (mkFastString (showSDoc (ppr span))))
+srcSpanPrimLit span = HsLit (HsStringPrim (mkFastString (showSDocOneLine (ppr span))))
 
 mkAssertErrorExpr :: RnM (HsExpr Name)
 -- Return an expression for (assertError "Foo.hs:27")