dev: avoid a strange vscode/Haskell highlighting bug

This commit is contained in:
Simon Michael 2025-06-07 15:03:12 -10:00
parent f49f9c35cd
commit 41e62885c4

View File

@ -264,7 +264,7 @@ transactionAddTags t@Transaction{ttags} tags = t{ttags=ttags `union` tags}
-- If the transaction already has these tags (with any value), do nothing.
transactionAddHiddenAndMaybeVisibleTag :: Bool -> HiddenTag -> Transaction -> Transaction
transactionAddHiddenAndMaybeVisibleTag verbosetags ht t@Transaction{tcomment=c, ttags} =
(t `transactionAddTags` ([ht] <> [vt|verbosetags]))
(t `transactionAddTags` ([ht] <> [ vt|verbosetags]))
{tcomment=if verbosetags && not hadtag then c `commentAddTagNextLine` vt else c}
where
vt@(vname,_) = toVisibleTag ht