Skip to content

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

Minor refactoring

parent 7ef4894f
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/Gargantext/Components/Search/SearchField.purs
View file @ a2efcc77
...@@ -6,10 +6,10 @@ import Data.Maybe (Maybe(..), maybe) ...@@ -6,10 +6,10 @@ import Data.Maybe (Maybe(..), maybe)
import Data.Tuple (fst) import Data.Tuple (fst)
import Data.Tuple.Nested ((/\)) import Data.Tuple.Nested ((/\))
import Effect.Uncurried (mkEffectFn1) import Effect.Uncurried (mkEffectFn1)
import FFI.Simple ((..))
import Reactix as R import Reactix as R
import Reactix.DOM.HTML (text, button, div, input, span, ul, li, a) import Reactix.DOM.HTML (text, button, div, input, span, ul, li, a)
import Gargantext.Components.Search.Types (Database) import Gargantext.Components.Search.Types (Database)
import Gargantext.Utils.Reactix as R2
select select
:: forall props :: forall props
...@@ -76,7 +76,7 @@ searchInput (term /\ setTerm) = ...@@ -76,7 +76,7 @@ searchInput (term /\ setTerm) =
, type: "text" , type: "text"
, onChange , onChange
, placeholder } , placeholder }
where onChange = mkEffectFn1 $ \e -> setTerm $ const $ e .. "target" .. "value" where onChange = mkEffectFn1 $ \e -> setTerm $ const $ R2.unsafeEventValue e
submitButton :: R.State (Maybe Database) -> R.State String -> R.State (Maybe Search) -> R.Element submitButton :: R.State (Maybe Database) -> R.State String -> R.State (Maybe Search) -> R.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