Skip to content

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

[REFACTOR] comment out unused performAction

parent 151d7465
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 0 deletions
src/Gargantext/Pages/Corpus/Tabs/Terms/NgramsTable.purs
View file @ 15465054
...@@ -60,6 +60,7 @@ _ItemAction = prism (uncurry ItemAction) \ta -> ...@@ -60,6 +60,7 @@ _ItemAction = prism (uncurry ItemAction) \ta ->
type Dispatch = Action -> Effect Unit type Dispatch = Action -> Effect Unit
{-
performAction :: PerformAction State {} Action performAction :: PerformAction State {} Action
performAction (ChangePageSize ps) _ _ = void $ modifyState $ changePageSize ps performAction (ChangePageSize ps) _ _ = void $ modifyState $ changePageSize ps
...@@ -77,6 +78,7 @@ performAction (SetInput s) _ _ = void do ...@@ -77,6 +78,7 @@ performAction (SetInput s) _ _ = void do
modifyState \(State state) -> State $ state { search = s } modifyState \(State state) -> State $ state { search = s }
performAction _ _ _ = pure unit performAction _ _ _ = pure unit
-}
tableSpec :: Spec State {} Action -> Spec State {} Action tableSpec :: Spec State {} Action -> Spec State {} Action
tableSpec = over _render \render dispatch p (State s) c -> tableSpec = over _render \render dispatch p (State s) c ->
......
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