finished hlint pass
This commit is contained in:
parent
185f0b6870
commit
6c396a256c
29 changed files with 114 additions and 115 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue