Commit ec08d7f1 authored by Karen Konou's avatar Karen Konou

[Team] Team management layout skeleton

parent cbf1bd25
No related merge requests found
module Gargantext.Components.Nodes.Team where
import Gargantext.Prelude
import Gargantext.Components.App.Store (Boxes)
import Gargantext.Sessions (Session(..))
import Gargantext.Types (ID)
import Gargantext.Utils.Reactix as R2
import Reactix as R
import Reactix.DOM.HTML as H
here :: R2.Here
here = R2.here "Gargantext.Components.Nodes.Team"
type Props =
( boxes :: Boxes
, nodeId :: ID
, session :: Session )
teamLayout :: R2.Leaf Props
teamLayout = R2.leafComponent teamLayoutCpt
teamLayoutCpt :: R.Component Props
teamLayoutCpt = here.component "teamLayout" cpt where
cpt _ _ = do
pure $ H.text "todo"
......@@ -26,6 +26,7 @@ import Gargantext.Components.Nodes.File (fileLayout)
import Gargantext.Components.Nodes.Frame as Frame
import Gargantext.Components.Nodes.Home (homeLayout)
import Gargantext.Components.Nodes.Lists as Lists
import Gargantext.Components.Nodes.Team (teamLayout)
import Gargantext.Components.Nodes.Texts as Texts
import Gargantext.Components.Tile (tileBlock)
import Gargantext.Components.TopBar as TopBar
......@@ -624,7 +625,7 @@ teamCpt = here.component "team" cpt where
cpt props@{ boxes, nodeId } _ = do
let sessionProps = RE.pick props :: Record SessionProps
pure $ authed (Record.merge { content: \session ->
corpusLayout { boxes
teamLayout { boxes
, nodeId
, session } } sessionProps) []
......
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