Ticket #5877: ghc.patch

File ghc.patch, 974 bytes (added by reinerp, 2 years ago)

Patch for ghc

  • compiler/hsSyn/Convert.lhs

    From e6a052de2d96d987ada9e2cb7c6b666ed6165c49 Mon Sep 17 00:00:00 2001
    From: Reiner Pope <reiner.pope@gmail.com>
    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 b cvtLit (CharL c) = do { force c; return $ HsChar c } 
    711711cvtLit (StringL s)     = do { let { s' = mkFastString s } 
    712712                            ; force s'       
    713713                            ; return $ HsString s' } 
    714 cvtLit (StringPrimL s) = do { let { s' = mkFastString s } 
     714cvtLit (StringPrimL s) = do { let { s' = mkFastStringByteList s } 
    715715                            ; force s'            
    716716                            ; return $ HsStringPrim s' } 
    717717cvtLit _ = panic "Convert.cvtLit: Unexpected literal"