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

src/DocView.purs

@@ -111,7 +111,6 @@ toggleNode sid (NNode iid open name ary) =
 toggleNode sid a = a
 
 
-
 spec :: Spec _ State _ Action
 spec = simpleSpec performAction render
   where
@@ -195,7 +194,6 @@ exampleTree =
                                  ]
   ]
 
-
 ------------------------------------------------------------------------
 -- TODO
 -- alignment to the right
@@ -405,7 +403,9 @@ greaterthan x y = x > y
 
 newtype TableData a
   = TableData
-    { rows :: Array {row :: a, delete :: Boolean}
+    { rows         :: Array { row    :: a
+                            , delete :: Boolean
+                            }
     , totalPages   :: Int
     , currentPage  :: Int
     , pageSize     :: PageSizes

src/Landing.purs

@@ -151,4 +151,3 @@ blocksRandomText = div [ className "row" ]
           ]
 
 
-

src/Navigation.purs

@@ -156,11 +156,14 @@ pagesComponent s =
 routingSpec :: forall props eff. Spec (dom :: DOM |eff) AppState props Action
 routingSpec = simpleSpec performAction defaultRender
 
+
+
 wrap :: forall eff props. Spec (E eff) AppState props Action -> Spec (E eff) AppState props Action
 wrap spec =
   fold
   [ sidebarnavSpec
-  --, tree
+--  TODO Add Tree to the template
+--, exampleTree'
   , innerContainer $ spec
   , footerLegalInfo
   ]
@@ -172,6 +175,13 @@ wrap spec =
           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
@@ -374,6 +384,7 @@ dispatchAction dispatcher _ UserPage = do
 
 
 
+
 footerLegalInfo ::  forall props eff. Spec (dom :: DOM |eff) AppState props Action
 footerLegalInfo = simpleSpec performAction render
   where