[BACKUP] before replacing previous repo

ee823c5a · Alexandre Delanoë · dfb77185 · ee823c5a · ee823c5a
Commit ee823c5a authored Jul 28, 2021 by Alexandre Delanoë
Expand all Hide whitespace changes
Inline Side-by-side

Showing with 258 additions and 4 deletions

Ngrams.hs src/Gargantext/API/Ngrams.hs +257 -3

NodeStory.hs src/Gargantext/Core/NodeStory.hs +1 -1

No files found.
--- a/src/Gargantext/API/Ngrams.hs
+++ b/src/Gargantext/API/Ngrams.hs
--- a/src/Gargantext/Core/NodeStory.hs
+++ b/src/Gargantext/Core/NodeStory.hs
@@ -204,7 +204,6 @@ data Archive s p = Archive

 instance (Serialise s, Serialise p) => Serialise (Archive s p)

-- TODO Semigroup instance for unions

 type NodeListStory     = NodeStory NgramsState' NgramsStatePatch'

@@ -212,6 +211,7 @@ type NgramsState'      = Map       TableNgrams.NgramsType NgramsTableMap
 type NgramsStatePatch' = PatchMap  TableNgrams.NgramsType NgramsTablePatch
 instance Serialise NgramsStatePatch'

+-- TODO Semigroup instance for unions
 -- TODO check this
 instance (Semigroup s, Semigroup p) => Semigroup (Archive s p) where
  (<>) (Archive _v _s p) (Archive v' s' p') = Archive v' s' (p' <> p)