starlitcanopy/purescript-halogen-select
starlitcanopy/purescript-halogen-select
1
Fork 0
Code Activity

remove some unnecessary state fetching

Browse source
This commit is contained in:
Chris Cornwell 2018-11-08 15:08:18 -08:00
commit fb225e817b
1 changed files with 0 additions and 2 deletions

2
src/Select.purs
View file

@ -328,7 +328,6 @@ component =
\item -> H.raise (Selected item)
Focus focusOrBlur a -> a <$ do
st <- getState
inputElement <- H.getHTMLElementRef $ H.RefLabel "select-input"
traverse_ (H.liftEffect <<< if focusOrBlur then focus else blur) inputElement
@ -339,7 +338,6 @@ component =
"ArrowUp" -> preventIt *> eval' (highlight Prev)
"ArrowDown" -> preventIt *> eval' (highlight Next)
"Escape" -> do
st <- getState
inputElement <- H.getHTMLElementRef $ H.RefLabel "select-input"
preventIt
for_ inputElement (H.liftEffect <<< blur)