From 879787f85ea1eaa42dc98ade0a611f5dcfc5746d Mon Sep 17 00:00:00 2001
From: David Zuch <dzuch@citizennet.com>
Date: Thu, 3 Jan 2019 12:10:19 -0800
Subject: [PATCH] Fixed ordering of setters so that user event handlers
 override defaults

---
 src/Select/Setters.purs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Select/Setters.purs b/src/Select/Setters.purs
index 679b0ca..319d29e 100644
--- a/src/Select/Setters.purs
+++ b/src/Select/Setters.purs
@@ -41,7 +41,7 @@ setToggleProps
   :: ∀ o item p
    . Array (HP.IProp (ToggleProps p) (Query o item Unit))
   -> Array (HP.IProp (ToggleProps p) (Query o item Unit))
-setToggleProps = flip (<>)
+setToggleProps = (<>)
   [ HE.onFocus $ Select.always $ Select.setVisibility On
   , HE.onMouseDown \ev -> Just do
       Select.preventClick ev
@@ -83,7 +83,7 @@ setInputProps
   :: ∀ o item p
    . Array (HP.IProp (InputProps p) (Query o item Unit))
   -> Array (HP.IProp (InputProps p) (Query o item Unit))
-setInputProps = flip (<>)
+setInputProps = (<>)
   [ HE.onFocus $ Select.always $ Select.setVisibility On
   , HE.onKeyDown $ Just <<< Select.key
   , HE.onValueInput $ Just <<< Select.search
@@ -118,7 +118,7 @@ setItemProps
    . Int
   -> Array (HP.IProp (ItemProps p) (Query o item Unit))
   -> Array (HP.IProp (ItemProps p) (Query o item Unit))
-setItemProps index = flip (<>)
+setItemProps index = (<>)
   [ HE.onMouseDown \ev -> Just do
       Select.preventClick ev
       Select.select index
@@ -133,5 +133,5 @@ setContainerProps
   :: ∀ o item p
    . Array (HP.IProp (onMouseDown :: ME.MouseEvent | p) (Query o item Unit))
   -> Array (HP.IProp (onMouseDown :: ME.MouseEvent | p) (Query o item Unit))
-setContainerProps = flip (<>)
+setContainerProps = (<>)
   [ HE.onMouseDown $ Just <<< Select.preventClick ]