Skip to content

haskell-gargantext
haskell-gargantext
Commit 827fbaf9 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[HANDLING] Errors, catchNodeError removed.

parent 385d4328
Pipeline #98 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 4 additions and 2 deletions
    src/Gargantext/Database/Schema/Node.hs
    View file @ 827fbaf9
    ......@@ -525,9 +525,11 @@ mkCorpus n h p u = insertNodesR [nodeCorpusW n h p u]
    getOrMkList :: HasNodeError err => ParentId -> UserId -> Cmd err Int
    getOrMkList pId uId =
    defaultList pId `catchNodeError`
    (\x -> maybe (nodeError x) pure . headMay =<< mkList pId uId)
    maybe (mkList' pId uId) (pure . view node_id) . headMay =<< getListsWithParentId pId
    where
    mkList' pId uId = maybe (nodeError MkNode) pure . headMay =<< mkList pId uId
    -- | TODO remove defaultList
    defaultList :: HasNodeError err => CorpusId -> Cmd err ListId
    defaultList cId =
    maybe (nodeError NoListFound) (pure . view node_id) . headMay =<< getListsWithParentId cId
    ......
    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