diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-14 21:56:14 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-14 21:56:14 +0100 |
| commit | 3248fd922498d7ee70783139ac50334ae1d0574a (patch) | |
| tree | ed2fbc90936661207cd82702a8689c797df01628 /compiler/rename | |
| parent | 7ae1bec53801069661e249e47ebd6998d6450093 (diff) | |
| download | haskell-3248fd922498d7ee70783139ac50334ae1d0574a.tar.gz | |
HsStringPrim now contains FastBytes, not FastString
Diffstat (limited to 'compiler/rename')
| -rw-r--r-- | compiler/rename/RnExpr.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs index d27ef98e80..c81243a3d4 100644 --- a/compiler/rename/RnExpr.lhs +++ b/compiler/rename/RnExpr.lhs @@ -45,6 +45,7 @@ import NameSet import RdrName import LoadIface ( loadInterfaceForName ) import UniqSet +import Data.Char import Data.List import Util import ListSetOps ( removeDups ) @@ -1167,7 +1168,7 @@ segsToStmts empty_rec_stmt ((defs, uses, fwds, ss) : segs) fvs_later \begin{code} srcSpanPrimLit :: DynFlags -> SrcSpan -> HsExpr Name srcSpanPrimLit dflags span - = HsLit (HsStringPrim (mkFastString (showSDocOneLine dflags (ppr span)))) + = HsLit (HsStringPrim (mkFastBytesByteList (map (fromIntegral . ord) (showSDocOneLine dflags (ppr span))))) mkAssertErrorExpr :: RnM (HsExpr Name) -- Return an expression for (assertError "Foo.hs:27") |