From 67aa6764bfafabda51eb270e01aaf0fc638f380f Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 1 Jan 2015 23:52:52 +0100
Subject: simplify TagUtils

---
 TagUtils.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'TagUtils.hs')

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
 
 
-- 
cgit v1.2.3