diff options
| author | Joris | 2019-08-10 21:31:27 +0200 |
|---|---|---|
| committer | Joris | 2019-08-10 21:31:27 +0200 |
| commit | c542424b7b41c78a170763f6996c12f56b359860 (patch) | |
| tree | 44830a524c592b53e93190c0461676edbfa6fdb8 /client/src/Component/Select.hs | |
| parent | c5c54722f4736108c8418c9865f81f05a6db560d (diff) | |
| download | budget-c542424b7b41c78a170763f6996c12f56b359860.tar.gz budget-c542424b7b41c78a170763f6996c12f56b359860.tar.bz2 budget-c542424b7b41c78a170763f6996c12f56b359860.zip | |
Add smooth transitions to modal show and hide
Diffstat (limited to 'client/src/Component/Select.hs')
| -rw-r--r-- | client/src/Component/Select.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/client/src/Component/Select.hs b/client/src/Component/Select.hs index cf62f26..9a37afc 100644 --- a/client/src/Component/Select.hs +++ b/client/src/Component/Select.hs @@ -51,7 +51,7 @@ select selectIn = do fmap ValidationUtil.maybeError validatedValue showedError <- R.holdDyn Nothing $ R.leftmost - [ const Nothing <$> _selectIn_reset selectIn + [ Nothing <$ _selectIn_reset selectIn , R.updated maybeError , R.attachWith const (R.current maybeError) (_selectIn_validate selectIn) ] @@ -62,7 +62,7 @@ select selectIn = do let initialValue = _selectIn_initialValue selectIn let setValue = R.leftmost - [ const initialValue <$> (_selectIn_reset selectIn) + [ initialValue <$ (_selectIn_reset selectIn) , _selectIn_value selectIn ] |