diff options
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 |