diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-03-23 10:52:40 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-03-23 10:52:40 -0400 |
| commit | b0eccb003ae70792e89eda54d0c0bea1f38847ba (patch) | |
| tree | ed62c8eec2401df1b7ada058d5de916b4faa7e91 /Content.hs | |
| parent | 04539d16718265441c607da08d3e27d959f749c6 (diff) | |
improve free space needed display
Diffstat (limited to 'Content.hs')
| -rw-r--r-- | Content.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Content.hs b/Content.hs index 2a3106c10..bc43e4b44 100644 --- a/Content.hs +++ b/Content.hs @@ -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 |