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/Component/Button.hs | |
parent | 33b85b7f12798f5762d940ed5c30f775cdd7b751 (diff) |
Use date input type
Diffstat (limited to 'client/src/Component/Button.hs')
-rw-r--r-- | client/src/Component/Button.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/client/src/Component/Button.hs b/client/src/Component/Button.hs index bf604f1..46c0afa 100644 --- a/client/src/Component/Button.hs +++ b/client/src/Component/Button.hs @@ -31,20 +31,10 @@ defaultButtonIn content = ButtonIn , _buttonIn_submit = False } --- defaultButtonIn :: MonadWidget t m => ButtonIn t m --- defaultButtonIn = ButtonIn --- { _buttonIn_class = R.constDyn "" --- , _buttonIn_content = R.blank --- , _buttonIn_waiting = R.never --- , _buttonIn_tabIndex = Nothing --- , _buttonIn_submit = False --- } - data ButtonOut t = ButtonOut { _buttonOut_clic :: Event t () } - button :: forall t m. MonadWidget t m => ButtonIn t m -> m (ButtonOut t) button buttonIn = do dynWaiting <- R.holdDyn False $ _buttonIn_waiting buttonIn |