Commit a04e0e9d authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FLOW] FIX listUser, but still repo.json is empty

parent f2728eb9
......@@ -644,9 +644,9 @@ something :: Monoid a => Maybe a -> a
something Nothing = mempty
something (Just a) = a
insertNewListOfNgramsElements :: RepoCmdM env err m => NodeId -> NgramsType
putListNgrams :: RepoCmdM env err m => NodeId -> NgramsType
-> [NgramsElement] -> m ()
insertNewListOfNgramsElements listId ngramsType nes = do
putListNgrams listId ngramsType nes = do
var <- view repoVar
liftIO $ modifyMVar_ var $
pure . (r_state . at ngramsType %~ (Just . (at listId %~ insertNewOnly m) . something))
......
This diff is collapsed.
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