Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
purescript-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Grégoire Locqueville
purescript-gargantext
Commits
b8529d4d
Commit
b8529d4d
authored
May 30, 2023
by
Karen Konou
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fix logout function
parent
9e3e5773
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
6 deletions
+6
-6
Home.purs
src/Gargantext/Components/Nodes/Home.purs
+6
-6
No files found.
src/Gargantext/Components/Nodes/Home.purs
View file @
b8529d4d
...
@@ -230,7 +230,7 @@ tutorial :: R2.Leaf TutorialProps
...
@@ -230,7 +230,7 @@ tutorial :: R2.Leaf TutorialProps
tutorial = R2.leaf tutorialCpt
tutorial = R2.leaf tutorialCpt
tutorialCpt :: R.Component TutorialProps
tutorialCpt :: R.Component TutorialProps
tutorialCpt = here.component "tutorial" cpt where
tutorialCpt = here.component "tutorial" cpt where
cpt { sessions } _ = do
cpt {
boxes,
sessions } _ = do
pure $
pure $
...
@@ -253,11 +253,11 @@ tutorialCpt = here.component "tutorial" cpt where
...
@@ -253,11 +253,11 @@ 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 session = void $ Sessions.change (Logout session) boxes.
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)
makeFolders :: Array Session -> Array R.Element
makeFolders :: Array Session -> Array R.Element
...
@@ -298,7 +298,7 @@ tutorialCpt = here.component "tutorial" cpt where
...
@@ -298,7 +298,7 @@ tutorialCpt = here.component "tutorial" cpt where
, defaultSlot:
, defaultSlot:
B.iconButton
B.iconButton
{ name: "sign-out"
{ name: "sign-out"
, callback:
onSignOutClick
, callback:
\_ -> onSignOutClick session
, elevation: Level2
, elevation: Level2
, className: "text-light"
, className: "text-light"
}
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment