[NGRAMS] Better patch types

21aa2b74 · Nicolas Pouillard · cab26234 · 21aa2b74
Unverified Commit 21aa2b74 authored Nov 12, 2018 by Nicolas Pouillard
Show whitespace changes
Inline Side-by-side

Showing with 7 additions and 3 deletions

NgramsTable.purs src/Gargantext/Pages/Corpus/Tabs/Ngrams/NgramsTable.purs +7 -3

No files found.
--- a/src/Gargantext/Pages/Corpus/Tabs/Ngrams/NgramsTable.purs
+++ b/src/Gargantext/Pages/Corpus/Tabs/Ngrams/NgramsTable.purs
@@ -63,8 +63,12 @@ data Replace a
  = Keep
  | Replace { old :: a, new :: a }

-type NgramsPatch = { rem_children :: Set NgramsTerm
-                   , add_children :: Set NgramsTerm
+newtype PatchSet a = PatchSet
+  { rem :: Set a
+  , add :: Set a
+  }
+
+type NgramsPatch = { patch_children :: PatchSet NgramsTerm
                   , patch_list     :: Replace TermList
                   }