From 33e6425d102af17f32593e87286aaf8b11a7e1d4 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 16 May 2011 22:49:41 -0400
Subject: tweak

---
 Command/Status.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Command/Status.hs b/Command/Status.hs
index c2f7692c5..39e230021 100644
--- a/Command/Status.hs
+++ b/Command/Status.hs
@@ -169,7 +169,7 @@ keySizeSum (keys, len) = do
 	let missing = len - genericLength knownsize
 	return $ total ++
 		if missing > 0
-			then " (but " ++ show missing ++ " keys have unknown size)"
+			then aside $ "but " ++ show missing ++ " keys have unknown size"
 			else ""
 
 staleSize :: String -> (Git.Repo -> FilePath) -> Stat
@@ -179,4 +179,7 @@ staleSize label dirspec = do
 		then nostat
 		else stat label $ do
 			s <- keySizeSum $ sizeList keys
-			return $ s ++ " (clean up with git-annex unused)"
+			return $ s ++ aside "clean up with git-annex unused"
+
+aside :: String -> String
+aside s = "\t(" ++ s ++ ")"
-- 
cgit v1.2.3