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.
This commit is contained in:
parent
e4ba0934c2
commit
e296da4bfe
4 changed files with 3 additions and 9 deletions
|
@ -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. -}
|
||||
|
|
|
@ -40,7 +40,6 @@ perform key = do
|
|||
pp' <- prettyPrintUUIDs "untrusted" untrustedlocations
|
||||
unless (null untrustedlocations) $
|
||||
showLongNote $ untrustedheader ++ pp'
|
||||
unless (null locations) showOutput
|
||||
if null safelocations then stop else next $ return True
|
||||
where
|
||||
copiesplural 1 = "copy"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue