Skip to content

P
purescript-gargantext
Unverified Commit 21aa2b74 authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

[NGRAMS] Better patch types

parent cab26234
Hide whitespace changes
Inline Side-by-side
Showing with 7 additions and 3 deletions
src/Gargantext/Pages/Corpus/Tabs/Ngrams/NgramsTable.purs
View file @ 21aa2b74
...@@ -63,9 +63,13 @@ data Replace a ...@@ -63,9 +63,13 @@ data Replace a
= Keep = Keep
| Replace { old :: a, new :: a } | Replace { old :: a, new :: a }
type NgramsPatch = { rem_children :: Set NgramsTerm newtype PatchSet a = PatchSet
, add_children :: Set NgramsTerm { rem :: Set a
, patch_list :: Replace TermList , add :: Set a
}
type NgramsPatch = { patch_children :: PatchSet NgramsTerm
, patch_list :: Replace TermList
} }
type NgramsTablePatch = Map NgramsTerm NgramsPatch type NgramsTablePatch = Map NgramsTerm NgramsPatch
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment