Commit 9e3e5773 authored by Fabien Manière's avatar Fabien Manière

temp version

parent 81931dc8
...@@ -253,10 +253,10 @@ tutorialCpt = here.component "tutorial" cpt where ...@@ -253,10 +253,10 @@ tutorialCpt = here.component "tutorial" cpt where
[ video x.id, H.h4 {} [ H.text x.title ], H.p {} [ H.text x.text ] ] [ video x.id, H.h4 {} [ H.text x.title ], H.p {} [ H.text x.text ] ]
-} -}
-- onSignOutClick _ = void $ Sessions.change (Logout session') sessions -- onSignOutClick _ = void $ Sessions.change (Logout session) sessions
onSignOutClick _ = do onSignOutClick _ = do
log "Logging sessions:" log "Logging sessions:"
-- log show session' -- log show session
for_ sessions $ \element -> log (show element) for_ sessions $ \element -> log (show element)
......
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