diff options
-rw-r--r-- | Command/Status.hs | 7 |
1 files 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 ++ ")" |