diff options
| author | Reiner Pope <reiner.pope@gmail.com> | 2012-02-16 10:58:07 +1100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-06-19 14:32:54 +0100 |
| commit | ee44e19f20395596fc34f2bce5763fb16032dbd4 (patch) | |
| tree | ea113ca352e3b847cb42baaf324f2ae30a8fc0e8 /compiler | |
| parent | 11ca8cdc3aa72c916f4645d4027974741a0d2c66 (diff) | |
| download | haskell-ee44e19f20395596fc34f2bce5763fb16032dbd4.tar.gz | |
Template Haskell: StringPrimL now takes [Word8]
Diffstat (limited to 'compiler')
| -rw-r--r-- | 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 aa141fa0f3..a5839c2406 100644 --- a/compiler/hsSyn/Convert.lhs +++ b/compiler/hsSyn/Convert.lhs @@ -719,7 +719,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" |