diff options
| -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 |