Skip to content

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

Avoid catch-all branches

parent 70e0d639
Hide whitespace changes
Inline Side-by-side
Showing with 5 additions and 1 deletion
src/Gargantext/Pages/Corpus.purs
View file @ b9e8b882
...@@ -215,7 +215,11 @@ performAction (Load nId) _ _ = do ...@@ -215,7 +215,11 @@ performAction (Load nId) _ _ = do
(Left err) -> do (Left err) -> do
logs err logs err
logs $ "Node Corpus fetched." logs $ "Node Corpus fetched."
performAction _ _ _ = pure unit performAction (DocviewA a) _ _ = pure unit
performAction (AuthorviewA _) _ _ = pure unit
performAction (SourceviewA _) _ _ = pure unit
performAction (TabViewA _) _ _ = pure unit
performAction (TermsviewA _) _ _ = pure unit
getNode :: Int -> Aff (Either String (NodePoly CorpusInfo)) getNode :: Int -> Aff (Either String (NodePoly CorpusInfo))
getNode id = get $ toUrl Back Node id getNode id = get $ toUrl Back Node id
......
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