improve free space needed display

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