From dd5645c96ef802d54a0781f0d0a9e7e6bc5e75ef Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Alexandre=20Delano=C3=AB?= <devel+git@delanoe.org> Date: Fri, 16 Mar 2018 12:46:17 +0100 Subject: [PATCH] [LAYOUT] layoutFooter, innerLayout function. --- src/Navigation.purs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/Navigation.purs b/src/Navigation.purs index 63860684..66cf154e 100644 --- a/src/Navigation.purs +++ b/src/Navigation.purs @@ -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 spec = +layout0 layout = fold [ layoutSidebar --- TODO Add Tree to the template +-- TODO Add layoutTree --, exampleTree' - , innerContainer $ spec - , footerLegalInfo + , innerLayout $ layout + , layoutFooter ] where - innerContainer :: Spec (E eff) AppState props Action -> Spec (E eff) AppState props Action - innerContainer = over _render \render d p s c -> + innerLayout :: Spec (E eff) AppState props Action -> Spec (E eff) AppState props Action + innerLayout = over _render \render d p s c -> [ div [_id "page-wrapper"] [ div [className "container-fluid"] (render d p s c) @@ -335,8 +335,8 @@ divDropdownRight = ul [className "nav navbar-nav pull-right"] -footerLegalInfo :: forall props eff. Spec (dom :: DOM |eff) AppState props Action -footerLegalInfo = simpleSpec performAction render +layoutFooter :: forall props eff. Spec (dom :: DOM |eff) AppState props Action +layoutFooter = simpleSpec performAction render where render :: Render AppState props Action render dispatch _ state _ = [div [ className "container" ] [ hr [] [], footerLegalInfo']] -- 2.21.0