From e6a052de2d96d987ada9e2cb7c6b666ed6165c49 Mon Sep 17 00:00:00 2001 From: Reiner Pope Date: Thu, 16 Feb 2012 10:58:07 +1100 Subject: [PATCH] Template Haskell: StringPrimL now takes [Word8] --- compiler/hsSyn/Convert.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/hsSyn/Convert.lhs b/compiler/hsSyn/Convert.lhs index 5318c5b..ddd41a9 100644 --- a/compiler/hsSyn/Convert.lhs +++ b/compiler/hsSyn/Convert.lhs @@ -711,7 +711,7 @@ cvtLit (CharL c) = do { force c; return $ HsChar c } cvtLit (StringL s) = do { let { s' = mkFastString s } ; force s' ; return $ HsString s' } -cvtLit (StringPrimL s) = do { let { s' = mkFastString s } +cvtLit (StringPrimL s) = do { let { s' = mkFastStringByteList s } ; force s' ; return $ HsStringPrim s' } cvtLit _ = panic "Convert.cvtLit: Unexpected literal" -- 1.7.4.4