diff --git a/src/HPath/IO.hs b/src/HPath/IO.hs
index e883e3b..3243651 100644
--- 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)