Commit 4cd8e9d9 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[API][NGRAMS] NgramsElement name.

parent ecf21781
...@@ -39,22 +39,23 @@ import Gargantext.Core.Types.Main (Tree(..)) ...@@ -39,22 +39,23 @@ import Gargantext.Core.Types.Main (Tree(..))
import Gargantext.Core.Utils.Prefix (unPrefix) import Gargantext.Core.Utils.Prefix (unPrefix)
import Gargantext.Core.Types (ListType(..)) import Gargantext.Core.Types (ListType(..))
data NgramsTree = NgramsTree { _nn_ngrams :: Text data NgramsElement =
NgramsElement { _nn_ngrams :: Text
, _nn_id :: Int , _nn_id :: Int
, _nn_list :: ListType , _nn_list :: ListType
} }
$(deriveJSON (unPrefix "_nn_") ''NgramsTree) $(deriveJSON (unPrefix "_nn_") ''NgramsElement)
data NgramsTable = NgramsTable { _ngramsTable :: [Tree NgramsTree] } data NgramsTable = NgramsTable { _ngramsTable :: [Tree NgramsElement] }
deriving (Generic) deriving (Generic)
instance ToJSON NgramsTable instance ToJSON NgramsTable
instance FromJSON NgramsTable instance FromJSON NgramsTable
instance FromJSON (Tree NgramsTree) instance FromJSON (Tree NgramsElement)
-- TODO -- TODO
instance ToJSON (Tree NgramsTree) instance ToJSON (Tree 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