From ca8439b6787eb238d7b07544dfc728488f3c71b6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Tue, 22 Sep 2020 23:40:00 +0200
Subject: lint

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

(limited to 'TagUtils.hs')

diff --git a/TagUtils.hs b/TagUtils.hs
index 64336a0..99d957d 100644
--- a/TagUtils.hs
+++ b/TagUtils.hs
@@ -1,6 +1,4 @@
 {-# LANGUAGE LambdaCase #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RecordWildCards #-}
 
 module TagUtils where
 
@@ -29,8 +27,8 @@ diffTags :: [Tag] -> [Tag] -> [TagOp]
 diffTags old new =
     let oldTags = Set.fromList old
         newTags = Set.fromList new
-    in (map DelTag $ Set.toList $ oldTags `Set.difference` newTags) ++
-       (map AddTag $ Set.toList $ newTags `Set.difference` oldTags)
+    in map DelTag (Set.toList $ oldTags `Set.difference` newTags) ++
+       map AddTag (Set.toList $ newTags `Set.difference` oldTags)
 
 
 patchRootLabelTags :: [TagOp] -> Tree TreeView -> Tree TreeView
-- 
cgit v1.2.3