Skip to content

P
purescript-gargantext
Commit 56a2f699 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[LAYOUT] adding layoutSidebar

parent e87d7977
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
src/Navigation.purs
View file @ 56a2f699
...@@ -163,7 +163,7 @@ routingSpec = simpleSpec performAction defaultRender ...@@ -163,7 +163,7 @@ routingSpec = simpleSpec performAction defaultRender
layout0 :: forall eff props. Spec (E eff) AppState props Action -> Spec (E eff) AppState props Action layout0 :: forall eff props. Spec (E eff) AppState props Action -> Spec (E eff) AppState props Action
layout0 spec = layout0 spec =
fold fold
[ sidebarnavSpec [ layoutSidebar
-- TODO Add Tree to the template -- TODO Add Tree to the template
--, exampleTree' --, exampleTree'
, innerContainer $ spec , innerContainer $ spec
...@@ -185,8 +185,8 @@ layout0 spec = ...@@ -185,8 +185,8 @@ layout0 spec =
-- render dispatch _ state _ = DV.toHtml dispatch DV.exampleTree -- render dispatch _ state _ = DV.toHtml dispatch DV.exampleTree
sidebarnavSpec :: forall props eff. Spec (dom :: DOM |eff) AppState props Action layoutSidebar :: forall props eff. Spec (dom :: DOM |eff) AppState props Action
sidebarnavSpec = simpleSpec performAction render layoutSidebar = simpleSpec performAction render
where where
render :: Render AppState props Action render :: Render AppState props Action
render dispatch _ state _ = render dispatch _ state _ =
......
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