[commit: packages/binary] master: Fix compilation error on GHC < 7.10. (c2d8fe2)

git at git.haskell.org git at git.haskell.org
Mon Jun 1 08:47:45 UTC 2015


Repository : ssh://git@git.haskell.org/binary

On branch  : master
Link       : http://git.haskell.org/packages/binary.git/commitdiff/c2d8fe2f71a93bf8f5822b6b148c7cb1eb477590

>---------------------------------------------------------------

commit c2d8fe2f71a93bf8f5822b6b148c7cb1eb477590
Author: Lennart Kolmodin <kolmodin at google.com>
Date:   Sat May 30 11:58:48 2015 +0200

    Fix compilation error on GHC < 7.10.


>---------------------------------------------------------------

c2d8fe2f71a93bf8f5822b6b148c7cb1eb477590
 src/Data/Binary/Get/Internal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data/Binary/Get/Internal.hs b/src/Data/Binary/Get/Internal.hs
index 5549655..6659727 100644
--- a/src/Data/Binary/Get/Internal.hs
+++ b/src/Data/Binary/Get/Internal.hs
@@ -232,7 +232,7 @@ withInputChunks initS consume onSucc onFail = go initS []
       Left state' -> do
         let acc' = inp : acc
         prompt'
-          (runCont (onFail (reverse acc')) mempty ks)
+          (runCont (onFail (reverse acc')) B.empty ks)
           (\str' -> runCont (go state' acc') str' ks)
       Right (want,rest) -> do
         ks rest (onSucc (reverse (want:acc)))



More information about the ghc-commits mailing list