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

[CONFIG] Default node to load the tree with shared database (before authentication implementation).

parent e467737c
...@@ -21,7 +21,7 @@ import React.DOM (a, div, i, li, text, ul) ...@@ -21,7 +21,7 @@ import React.DOM (a, div, i, li, text, ul)
import React.DOM.Props (Props, className, href, onClick) import React.DOM.Props (Props, className, href, onClick)
import Thermite (PerformAction, Render, Spec, modifyState, simpleSpec) import Thermite (PerformAction, Render, Spec, modifyState, simpleSpec)
import Gargantext.Config (NodeType(..), toUrl, readNodeType, End(..), ApiVersion) import Gargantext.Config (NodeType(..), toUrl, readNodeType, End(..), ApiVersion, defaultRoot)
type Name = String type Name = String
type Open = Boolean type Open = Boolean
...@@ -162,7 +162,7 @@ instance decodeJsonFTree :: DecodeJson (NTree LNode) where ...@@ -162,7 +162,7 @@ instance decodeJsonFTree :: DecodeJson (NTree LNode) where
loadDefaultNode :: Aff (Either String (NTree LNode)) loadDefaultNode :: Aff (Either String (NTree LNode))
loadDefaultNode = do loadDefaultNode = do
res <- request $ defaultRequest res <- request $ defaultRequest
{ url = toUrl Back Tree 1 { url = toUrl Back Tree defaultRoot
, responseFormat = ResponseFormat.json , responseFormat = ResponseFormat.json
, method = Left GET , method = Left GET
, headers = [] , headers = []
......
...@@ -24,6 +24,11 @@ endConfig' :: ApiVersion -> EndConfig ...@@ -24,6 +24,11 @@ endConfig' :: ApiVersion -> EndConfig
endConfig' v = { front : frontCaddy endConfig' v = { front : frontCaddy
, back : backDev v } , back : backDev v }
-- | Default Root on shared database to develop
-- until authentication implementation
-- (Default Root will be given after authentication)
defaultRoot :: Int
defaultRoot = 347474
------------------------------------------------------------------------ ------------------------------------------------------------------------
frontCaddy :: Config frontCaddy :: Config
frontCaddy = { proto : "http://" frontCaddy = { proto : "http://"
......
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