finished hlint pass

This commit is contained in:
Joey Hess 2011-07-15 12:47:14 -04:00
parent 185f0b6870
commit 6c396a256c
29 changed files with 114 additions and 115 deletions

View file

@ -30,11 +30,11 @@ perform key = do
uuids <- keyLocations key
let num = length uuids
showNote $ show num ++ " " ++ copiesplural num
if null $ uuids
if null uuids
then stop
else do
pp <- prettyPrintUUIDs uuids
showLongNote $ pp
showLongNote pp
showProgress
next $ return True
where