Fix build with ghc-7.10

2018-04-11 22:22:03 +02:00
parent 3aee719130
commit c556a3d3e4
1 changed files with 1 additions and 1 deletions
--- a/src/HPath/IO.hs
+++ b/src/HPath/IO.hs
@@ -933,7 +933,7 @@ readFileEOF (MkPath fp) =
          else do
            readBS <- unsafePackCStringFinalizer buf
                                                 (fromIntegral size)
-                                                 mempty
+                                                 (return ())
            read' fd buf (builder <> byteString readBS)