diff options
author | Joris | 2018-06-24 22:02:00 +0200 |
---|---|---|
committer | Joris | 2018-06-24 22:02:00 +0200 |
commit | df83b634006c699cfa1e921bf74ce951a906a62f (patch) | |
tree | 65584291f8e93268326c6385df6c33d954b52199 /client/src/View/Payment/Header.hs | |
parent | 33b85b7f12798f5762d940ed5c30f775cdd7b751 (diff) | |
download | budget-df83b634006c699cfa1e921bf74ce951a906a62f.tar.gz budget-df83b634006c699cfa1e921bf74ce951a906a62f.tar.bz2 budget-df83b634006c699cfa1e921bf74ce951a906a62f.zip |
Use date input type
Diffstat (limited to 'client/src/View/Payment/Header.hs')
-rw-r--r-- | client/src/View/Payment/Header.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/client/src/View/Payment/Header.hs b/client/src/View/Payment/Header.hs index d01dec6..fd46c25 100644 --- a/client/src/View/Payment/Header.hs +++ b/client/src/View/Payment/Header.hs @@ -104,10 +104,8 @@ payerAndAdd incomes payments users categories currency = do searchLine :: forall t m. MonadWidget t m => m (Dynamic t Text, Dynamic t Frequency) searchLine = do R.divClass "searchLine" $ do - searchName <- _inputOut_value <$> (Component.input $ InputIn - { _inputIn_reset = R.never - , _inputIn_label = Msg.get Msg.Search_Name - , _inputIn_initialValue = "" + searchName <- _inputOut_value <$> (Component.input $ Component.defaultInputIn + { _inputIn_label = Msg.get Msg.Search_Name }) let frequencies = M.fromList |