[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