Commit 27db9304 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] folders are back

parent acd86b1b
Pipeline #1537 failed with stage
...@@ -102,7 +102,7 @@ joinButtonOrTutorial :: forall e. T.Box GAT.Storage -> Sessions -> (e -> Effect ...@@ -102,7 +102,7 @@ joinButtonOrTutorial :: forall e. T.Box GAT.Storage -> Sessions -> (e -> Effect
joinButtonOrTutorial tasks sessions click = joinButtonOrTutorial tasks sessions click =
if Sessions.null sessions if Sessions.null sessions
then joinButton click then joinButton click
else H.div {} [] -- tutorial {tasks, sessions: Sessions.unSessions sessions} else tutorial {tasks, sessions: Sessions.unSessions sessions}
joinButton :: forall e. (e -> Effect Unit) -> R.Element joinButton :: forall e. (e -> Effect Unit) -> R.Element
joinButton click = joinButton click =
...@@ -158,8 +158,8 @@ tutorialCpt = here.component "tutorial" cpt where ...@@ -158,8 +158,8 @@ tutorialCpt = here.component "tutorial" cpt where
pure $ H.div { className: "mx-auto container" } pure $ H.div { className: "mx-auto container" }
[ H.div {className: "d-flex justify-content-center"} [ H.table {} folders ] [ H.div {className: "d-flex justify-content-center"} [ H.table {} folders ]
, H.h1 {} [H.text "Tutorials"] -- , H.h1 {} [H.text "Tutorials"]
, summary -- , summary
-- , H.h3 {} [H.text "Resources"] -- , H.h3 {} [H.text "Resources"]
-- , section "How to start?" "alert-info" startTutos -- , section "How to start?" "alert-info" startTutos
-- , section "How to play?" "alert-warning" playTutos -- , section "How to play?" "alert-warning" playTutos
......
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