Skip to content

haskell-gargantext
haskell-gargantext
Commit 11e23878 authored by Alfredo Di Napoli's avatar Alfredo Di Napoli
Browse files
Options

Replace panic in getPhylo

parent 0460c11e
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 2 deletions
src/Gargantext/Core/Viz/Phylo/API.hs
View file @ 11e23878
...@@ -42,6 +42,7 @@ import Servant ...@@ -42,6 +42,7 @@ import Servant
import Test.QuickCheck (elements) import Test.QuickCheck (elements)
import Test.QuickCheck.Arbitrary (Arbitrary, arbitrary) import Test.QuickCheck.Arbitrary (Arbitrary, arbitrary)
import Web.HttpApiData (readTextData) import Web.HttpApiData (readTextData)
import Gargantext.Database.Query.Table.Node.Error
------------------------------------------------------------------------ ------------------------------------------------------------------------
type PhyloAPI = Summary "Phylo API" type PhyloAPI = Summary "Phylo API"
...@@ -125,8 +126,8 @@ type GetPhylo = QueryParam "listId" ListId ...@@ -125,8 +126,8 @@ type GetPhylo = QueryParam "listId" ListId
-- TODO fix parameters to default config that should be in Node -- TODO fix parameters to default config that should be in Node
getPhylo :: PhyloId -> GargServer GetPhylo getPhylo :: PhyloId -> GargServer GetPhylo
getPhylo phyloId lId _level _minSizeBranch = do getPhylo phyloId lId _level _minSizeBranch = do
corpusId <- fromMaybe (panic $ "[G.C.V.Phylo.API] no parent for NodeId " <> (show phyloId)) corpusId <- maybe (nodeLookupError $ NodeParentDoesNotExist phyloId) pure
<$> getClosestParentIdByType phyloId NodeCorpus =<< getClosestParentIdByType phyloId NodeCorpus
listId <- case lId of listId <- case lId of
Nothing -> defaultList corpusId Nothing -> defaultList corpusId
Just ld -> pure ld Just ld -> pure ld
......
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