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

[TODO] Add the Tree in wrap function (template of all pages); before refactoring.

parent a56c8af7
...@@ -111,7 +111,6 @@ toggleNode sid (NNode iid open name ary) = ...@@ -111,7 +111,6 @@ toggleNode sid (NNode iid open name ary) =
toggleNode sid a = a toggleNode sid a = a
spec :: Spec _ State _ Action spec :: Spec _ State _ Action
spec = simpleSpec performAction render spec = simpleSpec performAction render
where where
...@@ -195,7 +194,6 @@ exampleTree = ...@@ -195,7 +194,6 @@ exampleTree =
] ]
] ]
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- TODO -- TODO
-- alignment to the right -- alignment to the right
...@@ -405,7 +403,9 @@ greaterthan x y = x > y ...@@ -405,7 +403,9 @@ greaterthan x y = x > y
newtype TableData a newtype TableData a
= TableData = TableData
{ rows :: Array {row :: a, delete :: Boolean} { rows :: Array { row :: a
, delete :: Boolean
}
, totalPages :: Int , totalPages :: Int
, currentPage :: Int , currentPage :: Int
, pageSize :: PageSizes , pageSize :: PageSizes
......
...@@ -151,4 +151,3 @@ blocksRandomText = div [ className "row" ] ...@@ -151,4 +151,3 @@ blocksRandomText = div [ className "row" ]
] ]
...@@ -156,11 +156,14 @@ pagesComponent s = ...@@ -156,11 +156,14 @@ pagesComponent s =
routingSpec :: forall props eff. Spec (dom :: DOM |eff) AppState props Action routingSpec :: forall props eff. Spec (dom :: DOM |eff) AppState props Action
routingSpec = simpleSpec performAction defaultRender routingSpec = simpleSpec performAction defaultRender
wrap :: forall eff props. Spec (E eff) AppState props Action -> Spec (E eff) AppState props Action wrap :: forall eff props. Spec (E eff) AppState props Action -> Spec (E eff) AppState props Action
wrap spec = wrap spec =
fold fold
[ sidebarnavSpec [ sidebarnavSpec
--, tree -- TODO Add Tree to the template
--, exampleTree'
, innerContainer $ spec , innerContainer $ spec
, footerLegalInfo , footerLegalInfo
] ]
...@@ -172,6 +175,13 @@ wrap spec = ...@@ -172,6 +175,13 @@ wrap spec =
div [className "container-fluid"] (render d p s c) div [className "container-fluid"] (render d p s c)
] ]
] ]
-- TODO Add Tree to the template
-- exampleTree' :: forall props eff. Spec (dom :: DOM |eff) AppState props Action
-- exampleTree' = simpleSpec performAction render
-- where
-- render :: Render AppState props Action
-- render dispatch _ state _ = DV.toHtml dispatch DV.exampleTree
data LiNav = LiNav { title :: String data LiNav = LiNav { title :: String
...@@ -374,6 +384,7 @@ dispatchAction dispatcher _ UserPage = do ...@@ -374,6 +384,7 @@ dispatchAction dispatcher _ UserPage = do
footerLegalInfo :: forall props eff. Spec (dom :: DOM |eff) AppState props Action footerLegalInfo :: forall props eff. Spec (dom :: DOM |eff) AppState props Action
footerLegalInfo = simpleSpec performAction render footerLegalInfo = simpleSpec performAction render
where where
......
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