mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

improve free space needed display

Browse source
This commit is contained in:
Joey Hess 2011-03-23 10:52:40 -04:00
parent 04539d1671
commit b0eccb003a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Content.hs
View file

@ -129,9 +129,9 @@ checkDiskSpace' adjustment key = do
(_, Nothing) -> return ()
(Just (FileSystemStats { fsStatBytesAvailable = have }), Just need) ->
if (need + reserve > have + adjustment)
then error $ "not enough free space (have " ++
roughSize True (have + adjustment) ++ "; need " ++
roughSize True (need + reserve) ++ ")"
then error $ "not enough free space, need " ++
roughSize True (need + reserve - have - adjustment) ++
" more"
else return ()
where
megabyte :: Integer