diff options
| author | tv <tv@shackspace.de> | 2015-01-01 23:52:52 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-01-01 23:52:52 +0100 |
| commit | 67aa6764bfafabda51eb270e01aaf0fc638f380f (patch) | |
| tree | b9dff7b8782f15295d4d34b7e175adcceee0bad3 | |
| parent | 7b067ea9cdee788331712791022c276f5fb03971 (diff) | |
simplify TagUtils
| -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 |