diff options
| author | Joris | 2019-08-10 15:07:11 +0200 |
|---|---|---|
| committer | Joris | 2019-08-10 15:07:11 +0200 |
| commit | 234b5b29361734656dc780148309962f932d9907 (patch) | |
| tree | cc5895309f3461a7a2b012e810f2b999224bb564 /client/src/Component/Select.hs | |
| parent | fb8f0fe577e28dae69903413b761da50586e0099 (diff) | |
| download | budget-234b5b29361734656dc780148309962f932d9907.tar.gz budget-234b5b29361734656dc780148309962f932d9907.tar.bz2 budget-234b5b29361734656dc780148309962f932d9907.zip | |
Use select component in payment search line
Diffstat (limited to 'client/src/Component/Select.hs')
| -rw-r--r-- | client/src/Component/Select.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/client/src/Component/Select.hs b/client/src/Component/Select.hs index 01ed37a..cf62f26 100644 --- a/client/src/Component/Select.hs +++ b/client/src/Component/Select.hs @@ -27,7 +27,8 @@ data (Reflex t) => SelectIn t a b c = SelectIn } data SelectOut t a = SelectOut - { _selectOut_value :: Dynamic t (Validation Text a) + { _selectOut_raw :: Dynamic t a + , _selectOut_value :: Dynamic t (Validation Text a) } select :: forall t m a b c. (Ord a, MonadWidget t m) => SelectIn t a b c -> m (SelectOut t a) @@ -77,5 +78,6 @@ select selectIn = do return value return SelectOut - { _selectOut_value = validatedValue + { _selectOut_raw = value + , _selectOut_value = validatedValue } |