;lib: commentAddTagNextLine was broken
It would not add the tag when a comment already existed. This affected hledger-print-location.hs and probably the generated-transaction: tag in periodic transactions.
This commit is contained in:
		
							parent
							
								
									c8bc9c7088
								
							
						
					
					
						commit
						50bfc26ca7
					
				| @ -377,7 +377,7 @@ commentAddTag c (t,v) | |||||||
| -- A space is inserted following the colon, before the value. | -- A space is inserted following the colon, before the value. | ||||||
| commentAddTagNextLine :: Text -> Tag -> Text | commentAddTagNextLine :: Text -> Tag -> Text | ||||||
| commentAddTagNextLine cmt (t,v) = | commentAddTagNextLine cmt (t,v) = | ||||||
|   cmt <> if "\n" `T.isSuffixOf` cmt then "" else "\n" <> t <> ": " <> v  |   cmt <> (if "\n" `T.isSuffixOf` cmt then "" else "\n") <> t <> ": " <> v  | ||||||
| 
 | 
 | ||||||
| 
 | 
 | ||||||
| -- tests | -- tests | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user