diff options
| -rw-r--r-- | TagUtils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/TagUtils.hs b/TagUtils.hs index 3befad9..a5df807 100644 --- a/TagUtils.hs +++ b/TagUtils.hs @@ -53,9 +53,9 @@ tagOpsToArgs = map $ \case patchTags :: [TagOp] -> TreeView -> TreeView patchTags tagOps = \case TVSearchResult sr -> - TVSearchResult $ sr { searchTags = foldr applyTagOp (searchTags sr) tagOps } + TVSearchResult sr { searchTags = foldr applyTagOp (searchTags sr) tagOps } TVMessage m -> - TVMessage $ m { messageTags = foldr applyTagOp (messageTags m) tagOps } + TVMessage m { messageTags = foldr applyTagOp (messageTags m) tagOps } x -> x -- nop |