summaryrefslogtreecommitdiffstats
path: root/TagUtils.hs
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2015-01-01 23:52:52 +0100
committertv <tv@shackspace.de>2015-01-01 23:52:52 +0100
commit67aa6764bfafabda51eb270e01aaf0fc638f380f (patch)
treeb9dff7b8782f15295d4d34b7e175adcceee0bad3 /TagUtils.hs
parent7b067ea9cdee788331712791022c276f5fb03971 (diff)
simplify TagUtils
Diffstat (limited to 'TagUtils.hs')
-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