From fc8be14dd0089eb12b78af7aaaecd8ed57896677 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 7 Aug 2019 21:27:59 +0200
Subject: Update category according to payment in add overlay

---
 client/src/Component/Select.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'client/src/Component/Select.hs')

diff --git a/client/src/Component/Select.hs b/client/src/Component/Select.hs
index 9f671d3..43a8a6e 100644
--- a/client/src/Component/Select.hs
+++ b/client/src/Component/Select.hs
@@ -16,6 +16,7 @@ import qualified Common.Msg as Msg
 data (Reflex t) => SelectIn t a b c = SelectIn
   { _selectIn_label        :: Text
   , _selectIn_initialValue :: a
+  , _selectIn_value        :: Event t a
   , _selectIn_values       :: Dynamic t (Map a Text)
   , _selectIn_reset        :: Event t b
   , _selectIn_isValid      :: a -> Bool
@@ -48,11 +49,16 @@ select selectIn = do
 
       let initialValue = _selectIn_initialValue selectIn
 
+      let setValue = R.leftmost
+            [ const initialValue <$> (_selectIn_reset selectIn)
+            , _selectIn_value selectIn
+            ]
+
       value <- R._dropdown_value <$>
         R.dropdown
           initialValue
           (_selectIn_values selectIn)
-          (R.def { R._dropdownConfig_setValue = fmap (const initialValue) (_selectIn_reset selectIn) })
+          (R.def { R._dropdownConfig_setValue = setValue })
 
       errorMessage <- R.holdDyn "" $ R.attachWith
         (\v _ -> if (_selectIn_isValid selectIn) v then "" else "ERROR!")
-- 
cgit v1.2.3