command output cleanup
This commit is contained in:
parent
8f6e5da18f
commit
6d4fc0ca7e
4 changed files with 75 additions and 45 deletions
2
UUID.hs
2
UUID.hs
|
@ -100,7 +100,7 @@ reposByUUID repos uuids = do
|
|||
prettyPrintUUIDs :: [UUID] -> Annex String
|
||||
prettyPrintUUIDs uuids = do
|
||||
m <- uuidMap
|
||||
return $ unwords $ map (\u -> " "++(prettify m u)++"\n") uuids
|
||||
return $ unwords $ map (\u -> "\t"++(prettify m u)++"\n") uuids
|
||||
where
|
||||
prettify m u =
|
||||
if (0 < (length $ findlog m u))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue