summaryrefslogtreecommitdiff
path: root/Command/Unused.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-09-09 01:45:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-09-09 01:45:41 -0400
commite296da4bfef21c55fc23376300becb17a08eea83 (patch)
tree8ca17713ac97616deafd1c3c3e475dc062484233 /Command/Unused.hs
parente4ba0934c2992f00275bd24e8c4d25d6b9ea10ff (diff)
more newline fixes
Adds a missing newline when a longnote is followed by a endresult. Multiple longnotes in a row will now be separated by a blank line, which could be a bug or a feature depending on taste. Removed several places where newlines were explicitly displayed after longnotes.
Diffstat (limited to 'Command/Unused.hs')
-rw-r--r--Command/Unused.hs8
1 files changed, 2 insertions, 6 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs
index 6a62cde5f..960b2e1df 100644
--- a/Command/Unused.hs
+++ b/Command/Unused.hs
@@ -57,9 +57,7 @@ checkUnused = do
where
list file msg l c = do
let unusedlist = number c l
- unless (null l) $ do
- showLongNote $ msg unusedlist
- showLongNote "\n"
+ unless (null l) $ showLongNote $ msg unusedlist
writeUnusedFile file unusedlist
return $ c + length l
@@ -76,9 +74,7 @@ checkRemoteUnused' r = do
let remoteunused = remotehas `exclude` referenced
let list = number 0 remoteunused
writeUnusedFile "" list
- unless (null remoteunused) $ do
- showLongNote $ remoteUnusedMsg r list
- showLongNote "\n"
+ unless (null remoteunused) $ showLongNote $ remoteUnusedMsg r list
where
{- This should run strictly to avoid the filterM
- building many thunks containing keyLocations data. -}