Skip to content

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

[NgramsTable] fix addNewNgram

parent a05aeb4f
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 2 deletions
src/Gargantext/Components/NgramsTable/Core.purs
View file @ 64e9fcfe
...@@ -525,8 +525,9 @@ convOrderBy (T.ASC _) = TermAsc ...@@ -525,8 +525,9 @@ convOrderBy (T.ASC _) = TermAsc
convOrderBy (T.DESC _) = TermDesc convOrderBy (T.DESC _) = TermDesc
addNewNgram :: forall s. NgramsTerm -> Maybe TermList -> CoreParams s -> Aff Unit addNewNgram :: forall s. NgramsTerm -> Maybe TermList -> CoreParams s -> Aff Unit
addNewNgram ngram mayList {nodeId, listIds, tabType} = addNewNgram ngram mayList {nodeId, listIds, tabType} = do
post (toUrl Back (PutNgrams tabType (head listIds) mayList) $ Just nodeId) [ngram] (_ :: Array Unit) <- post (toUrl Back (PutNgrams tabType (head listIds) mayList) $ Just nodeId) [ngram]
pure unit
ngramsLoaderClass :: Loader.LoaderClass PageParams VersionedNgramsTable ngramsLoaderClass :: Loader.LoaderClass PageParams VersionedNgramsTable
ngramsLoaderClass = Loader.createLoaderClass "NgramsTableLoader" loadNgramsTable ngramsLoaderClass = Loader.createLoaderClass "NgramsTableLoader" loadNgramsTable
......
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