[commit: ghc] master: Template Haskell: StringPrimL now takes [Word8] (ee44e19)

[Kyra]

Could we port this to stable, please?

On 6/19/2012 18:54, Paolo Capriotti wrote:
> Repository : ssh://darcs.haskell.org//srv/darcs/ghc
>
> On branch  : master
>
> http://hackage.haskell.org/trac/ghc/changeset/ee44e19f20395596fc34f2bce5763fb16032dbd4
>
>> ---------------------------------------------------------------
> commit ee44e19f20395596fc34f2bce5763fb16032dbd4
> Author: Reiner Pope <reiner.pope at gmail.com>
> Date:   Thu Feb 16 10:58:07 2012 +1100
>
>      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 aa141fa..a5839c2 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"
>
>
>
> _______________________________________________
> Cvs-ghc mailing list
> Cvs-ghc at haskell.org
> http://www.haskell.org/mailman/listinfo/cvs-ghc
>