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

[BDD upgrade] fix docuement route as Context

parent e7c1cf0b
...@@ -155,7 +155,7 @@ documentLayoutWithKeyCpt = here.component "documentLayoutWithKey" cpt ...@@ -155,7 +155,7 @@ documentLayoutWithKeyCpt = here.component "documentLayoutWithKey" cpt
------------------------------------------------------------------------ ------------------------------------------------------------------------
loadDocument :: Session -> Int -> AffRESTError NodeDocument loadDocument :: Session -> Int -> AffRESTError NodeDocument
loadDocument session nodeId = get session $ NodeAPI Node (Just nodeId) "" loadDocument session nodeId = get session $ NodeAPI Context (Just nodeId) ""
loadData :: DocPath -> AffRESTError LoadedData loadData :: DocPath -> AffRESTError LoadedData
loadData { listIds, nodeId, session, tabType } = do loadData { listIds, nodeId, session, tabType } = do
......
...@@ -143,6 +143,7 @@ data NodeType = Annuaire ...@@ -143,6 +143,7 @@ data NodeType = Annuaire
| Graph | Graph
| Individu | Individu
| Node | Node
| Context
| NodeContact | NodeContact
| NodeList | NodeList
| NodeUser | NodeUser
...@@ -191,6 +192,7 @@ instance Show NodeType where ...@@ -191,6 +192,7 @@ instance Show NodeType where
show Individu = "NodeIndividu" show Individu = "NodeIndividu"
show Node = "Node" show Node = "Node"
show Nodes = "Nodes" show Nodes = "Nodes"
show Context = "Context"
show Tree = "NodeTree" show Tree = "NodeTree"
show Team = "NodeTeam" show Team = "NodeTeam"
show NodeList = "NodeList" show NodeList = "NodeList"
...@@ -217,6 +219,7 @@ instance Read NodeType where ...@@ -217,6 +219,7 @@ instance Read NodeType where
read "Individu" = Just Individu read "Individu" = Just Individu
read "Node" = Just Node read "Node" = Just Node
read "Nodes" = Just Nodes read "Nodes" = Just Nodes
read "Context" = Just Context
read "NodeCorpus" = Just Corpus read "NodeCorpus" = Just Corpus
read "NodeContact" = Just NodeContact read "NodeContact" = Just NodeContact
read "Tree" = Just Tree read "Tree" = Just Tree
...@@ -252,6 +255,7 @@ translateFR = case _ of ...@@ -252,6 +255,7 @@ translateFR = case _ of
Graph -> "Graphe" Graph -> "Graphe"
Individu -> "Individu" Individu -> "Individu"
Node -> "Nœud" Node -> "Nœud"
Context -> "ConTexte"
NodeContact -> "Contact" NodeContact -> "Contact"
NodeList -> "Liste" NodeList -> "Liste"
NodeUser -> "Utilisateur" NodeUser -> "Utilisateur"
...@@ -282,6 +286,7 @@ translateEN = case _ of ...@@ -282,6 +286,7 @@ translateEN = case _ of
Graph -> "Graph" Graph -> "Graph"
Individu -> "Person" Individu -> "Person"
Node -> "Node" Node -> "Node"
Context -> "Context"
NodeContact -> "Contact" NodeContact -> "Contact"
NodeList -> "List" NodeList -> "List"
NodeUser -> "User" NodeUser -> "User"
...@@ -397,6 +402,7 @@ nodeTypePath Phylo = "phylo" ...@@ -397,6 +402,7 @@ nodeTypePath Phylo = "phylo"
nodeTypePath Individu = "individu" nodeTypePath Individu = "individu"
nodeTypePath Node = "node" nodeTypePath Node = "node"
nodeTypePath Nodes = "nodes" nodeTypePath Nodes = "nodes"
nodeTypePath Context = "context"
nodeTypePath NodeUser = "user" nodeTypePath NodeUser = "user"
nodeTypePath NodeContact = "contact" nodeTypePath NodeContact = "contact"
nodeTypePath Tree = "tree" nodeTypePath Tree = "tree"
......
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