Skip to content

P
purescript-gargantext
Unverified Commit 6a64b6e0 authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

Remove NoOp in user API

parent 4f340fe0
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 4 deletions
src/Gargantext/Pages/Corpus/User/Users/API.purs
View file @ 6a64b6e0
...@@ -18,8 +18,6 @@ getUser id = get $ "http://localhost:8008/node/" <> show id ...@@ -18,8 +18,6 @@ getUser id = get $ "http://localhost:8008/node/" <> show id
performAction :: PerformAction State {} Action performAction :: PerformAction State {} Action
performAction NoOp _ _ = void do
modifyState identity
performAction (FetchUser userId) _ _ = void do performAction (FetchUser userId) _ _ = void do
value <- lift $ getUser userId value <- lift $ getUser userId
_ <- case value of _ <- case value of
......
src/Gargantext/Pages/Corpus/User/Users/Types/States.purs
View file @ 6a64b6e0
...@@ -6,8 +6,7 @@ import Gargantext.Pages.Corpus.User.Users.Specs.Documents as P ...@@ -6,8 +6,7 @@ import Gargantext.Pages.Corpus.User.Users.Specs.Documents as P
import Gargantext.Components.Tab as Tab import Gargantext.Components.Tab as Tab
data Action data Action
= NoOp = TabA Tab.Action
| TabA Tab.Action
| FetchUser Int | FetchUser Int
type State = type State =
......
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