Commit 98d40dfd authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] loadPage call at initialization commented.

parent ea9ca36a
...@@ -70,20 +70,21 @@ performAction Initialize _ state = void do ...@@ -70,20 +70,21 @@ performAction Initialize _ state = void do
pure unit pure unit
Right d -> do Right d -> do
_ <- modifyState $ _ { initialized = true, ntreeState = d} _ <- modifyState $ _ { initialized = true, ntreeState = d}
page <- lift $ DV.loadPage
case page of
Left err -> do
pure unit pure unit
Right docs -> void do -- page <- lift $ DV.loadPage
modifyState $ _ { initialized = true -- case page of
, ntreeState = d -- Left err -> do
-- if length d > 0 -- pure unit
-- then Tree.exampleTree -- Right docs -> void do
-- --then fnTransform $ unsafePartial $ fromJust $ head d -- modifyState $ _ { initialized = true
-- else Tree.initialState -- , ntreeState = d
-- -- if length d > 0
, docViewState = docs -- -- then Tree.exampleTree
} -- -- --then fnTransform $ unsafePartial $ fromJust $ head d
-- -- else Tree.initialState
--
-- , docViewState = docs
-- }
_ -> do _ -> do
pure unit pure unit
......
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