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

clean up unnecessary do blocks

Browse source
This commit is contained in:
Chris Cornwell 2018-11-08 15:13:01 -08:00
commit 5c82932a77
1 changed files with 2 additions and 4 deletions

6
src/Select/Setters.purs
View file

@ -42,8 +42,7 @@ setToggleProps
. Array (HP.IProp (ToggleProps p) (Query o item Unit))
-> Array (HP.IProp (ToggleProps p) (Query o item Unit))
setToggleProps = flip (<>)
[ HE.onFocus \ev -> Just do
Select.setVisibility On
[ HE.onFocus $ Select.always $ Select.setVisibility On
, HE.onMouseDown \ev -> Just do
Select.preventClick ev
Select.getVisibility >>= case _ of
@ -85,8 +84,7 @@ setInputProps
. Array (HP.IProp (InputProps p) (Query o item Unit))
-> Array (HP.IProp (InputProps p) (Query o item Unit))
setInputProps = flip (<>)
[ HE.onFocus \ev -> Just do
Select.setVisibility On
[ HE.onFocus $ Select.always $ Select.setVisibility On
, HE.onKeyDown $ Just <<< Select.key
, HE.onValueInput $ Just <<< Select.search
, HE.onMouseDown $ Select.always $ Select.setVisibility On