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