[NGRAMS] Better patch types

parent cab26234
...@@ -63,8 +63,12 @@ data Replace a ...@@ -63,8 +63,12 @@ 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
, add :: Set a
}
type NgramsPatch = { patch_children :: PatchSet NgramsTerm
, patch_list :: Replace TermList , patch_list :: Replace TermList
} }
......
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