1 files changed, 1 insertions, 3 deletions
diff --git a/Limit.hs b/Limit.hs
index 5d58e77f0..1053547ec 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -239,9 +239,7 @@ limitSize vs s = case readSize dataUnits s of
 	checkkey sz key = return $ keySize key `vs` Just sz
 	check _ sz (Just key) = checkkey sz key
 	check fi sz Nothing = do
-		filesize <- liftIO $ catchMaybeIO $
-			fromIntegral . fileSize
-				<$> getFileStatus (relFile fi)
+		filesize <- liftIO $ catchMaybeIO $ getFileSize (relFile fi)
 		return $ filesize `vs` Just sz
 
 addMetaData :: String -> Annex ()