diff options
| author | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2020-09-22 23:40:00 +0200 |
|---|---|---|
| committer | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2020-09-23 00:10:07 +0200 |
| commit | ca8439b6787eb238d7b07544dfc728488f3c71b6 (patch) | |
| tree | 0f812affaa5c569248ee2c1c7e8b39c6e8a405c7 /TagUtils.hs | |
| parent | 121d703bcd3ecbaba031499070907251b5eae1a9 (diff) | |
lint
Diffstat (limited to 'TagUtils.hs')
| -rw-r--r-- | TagUtils.hs | 6 |
1 files changed, 2 insertions, 4 deletions
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 |