Fix compilation error on GHC < 7.10.

haskell · May 30, 2015 · c2d8fe2 · c2d8fe2
1 parent 6c9c47f
commit c2d8fe2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)))