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
70425023
Commit
70425023
authored
Jun 25, 2018
by
Mael NICOLAS
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
rewrite the let and rename `id`
parent
46038d62
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
7 deletions
+6
-7
API.purs
src/Gargantext/Users/API.purs
+6
-7
No files found.
src/Gargantext/Users/API.purs
View file @
70425023
...
...
@@ -26,12 +26,11 @@ performAction :: forall eff props. PerformAction ( console :: CONSOLE
| eff ) State props Action
performAction NoOp _ _ = void do
modifyState id
performAction (FetchUser id) _ _ = void do
value <- lift $ getUser id
let user = case value of
(Right user) -> Just user
_ -> Nothing
_ <- pure <<< log $ "Fetching user..."
pure $ modifyState \state -> set _user user state
performAction (FetchUser userId) _ _ = void do
value <- lift $ getUser userId
_ <- case value of
(Right user) -> modifyState \state -> set _user (Just user) state
_ -> modifyState id
pure <<< log $ "Fetching user..."
performAction _ _ _ = void do
modifyState id
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