LIB: fix readFileContents

We incorrectly added +1 to the filesize.
2016-04-09 15:10:41 +02:00 · 2016-04-09 15:10:41 +02:00 · 418365db0f
commit 418365db0f
parent 5bce5dd6ff
1 changed files with 1 additions and 1 deletions
--- a/src/HSFM/FileSystem/FileType.hs
+++ b/src/HSFM/FileSystem/FileType.hs
@ -550,7 +550,7 @@ readFileContents af@(_ :/ RegFile{}) =
            PIO.closeFd
            $ \fd -> do
              filesz   <- fmap PF.fileSize $ PF.getFdStatus fd
-              PIOB.fdRead fd ((fromIntegral filesz `max` 0) + 1)
+              PIOB.fdRead fd (fromIntegral filesz `max` 0)
  where
    f = fullPathS af
 readFileContents _ = return B.empty