Commit 1d8bf33f authored by Alexandre Delanoë's avatar Alexandre Delanoë

[Merge]

parent 6bca0aeb
...@@ -97,8 +97,8 @@ data NgramsElement = ...@@ -97,8 +97,8 @@ data NgramsElement =
NgramsElement { _ne_ngrams :: NgramsTerm NgramsElement { _ne_ngrams :: NgramsTerm
, _ne_list :: ListType , _ne_list :: ListType
, _ne_occurrences :: Int , _ne_occurrences :: Int
, _ne_parent :: Maybe NgramsTerm , _ne_root :: Maybe NgramsTerm
, _ne_children :: Set NgramsTerm , _ne_children :: Set NgramsTerm
} }
deriving (Ord, Eq, Show, Generic) deriving (Ord, Eq, Show, Generic)
$(deriveJSON (unPrefix "_ne_") ''NgramsElement) $(deriveJSON (unPrefix "_ne_") ''NgramsElement)
......
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