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

[LAYOUT] layoutFooter, innerLayout function.

parent 56a2f699
...@@ -161,17 +161,17 @@ routingSpec = simpleSpec performAction defaultRender ...@@ -161,17 +161,17 @@ 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 layout =
fold fold
[ layoutSidebar [ layoutSidebar
-- TODO Add Tree to the template -- TODO Add layoutTree
--, exampleTree' --, exampleTree'
, innerContainer $ spec , innerLayout $ layout
, footerLegalInfo , layoutFooter
] ]
where where
innerContainer :: Spec (E eff) AppState props Action -> Spec (E eff) AppState props Action innerLayout :: Spec (E eff) AppState props Action -> Spec (E eff) AppState props Action
innerContainer = over _render \render d p s c -> innerLayout = over _render \render d p s c ->
[ div [_id "page-wrapper"] [ div [_id "page-wrapper"]
[ [
div [className "container-fluid"] (render d p s c) div [className "container-fluid"] (render d p s c)
...@@ -335,8 +335,8 @@ divDropdownRight = ul [className "nav navbar-nav pull-right"] ...@@ -335,8 +335,8 @@ divDropdownRight = ul [className "nav navbar-nav pull-right"]
footerLegalInfo :: forall props eff. Spec (dom :: DOM |eff) AppState props Action layoutFooter :: forall props eff. Spec (dom :: DOM |eff) AppState props Action
footerLegalInfo = simpleSpec performAction render layoutFooter = simpleSpec performAction render
where where
render :: Render AppState props Action render :: Render AppState props Action
render dispatch _ state _ = [div [ className "container" ] [ hr [] [], footerLegalInfo']] render dispatch _ state _ = [div [ className "container" ] [ hr [] [], footerLegalInfo']]
......
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