Skip to content

H
haskell-gargantext
Commit c55bb752 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[ngrams] add r_history %~ mempty to ngrams POST

parent 1aa7eefa
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 0 deletions
src/Gargantext/API/Ngrams.hs
View file @ c55bb752
...@@ -914,6 +914,7 @@ putListNgrams' nodeId ngramsType ns = do ...@@ -914,6 +914,7 @@ putListNgrams' nodeId ngramsType ns = do
var <- view repoVar var <- view repoVar
liftBase $ modifyMVar_ var $ \r -> do liftBase $ modifyMVar_ var $ \r -> do
pure $ r & r_version +~ 1 pure $ r & r_version +~ 1
& r_history %~ mempty
& r_state . at ngramsType %~ & r_state . at ngramsType %~
(Just . (Just .
(at nodeId %~ (at nodeId %~
......
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