summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--TagUtils.hs4
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