diff options
Diffstat (limited to 'Command/Info.hs')
-rw-r--r-- | Command/Info.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/Info.hs b/Command/Info.hs index 36d93a270..86b608928 100644 --- a/Command/Info.hs +++ b/Command/Info.hs @@ -490,8 +490,7 @@ staleSize label dirspec = go =<< lift (dirKeys dirspec) keysizes keys = do dir <- lift $ fromRepo dirspec liftIO $ forM keys $ \k -> catchDefaultIO 0 $ - fromIntegral . fileSize - <$> getFileStatus (dir </> keyFile k) + getFileSize (dir </> keyFile k) aside :: String -> String aside s = " (" ++ s ++ ")" |