Commit ec08d7f1 authored by Karen Konou's avatar Karen Konou

[Team] Team management layout skeleton

parent cbf1bd25
Pipeline #2955 failed with stage
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