diff options
| author | Joris | 2018-01-05 14:45:47 +0100 |
|---|---|---|
| committer | Joris | 2018-01-05 14:45:47 +0100 |
| commit | ab17b6339d16970c3845ec4f153bfeed89eae728 (patch) | |
| tree | 47c413dc13c2d21af47b965cb7b34e7dcbda805f /client/src/Component/Button.hs | |
| parent | 17d6a05756479388c91bc2e50f721fcea8a82d38 (diff) | |
| download | budget-ab17b6339d16970c3845ec4f153bfeed89eae728.tar.gz budget-ab17b6339d16970c3845ec4f153bfeed89eae728.tar.bz2 budget-ab17b6339d16970c3845ec4f153bfeed89eae728.zip | |
Add modal component
Diffstat (limited to 'client/src/Component/Button.hs')
| -rw-r--r-- | client/src/Component/Button.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/client/src/Component/Button.hs b/client/src/Component/Button.hs index 754b903..3ee9561 100644 --- a/client/src/Component/Button.hs +++ b/client/src/Component/Button.hs @@ -1,8 +1,8 @@ module Component.Button ( ButtonIn(..) - , buttonInDefault , ButtonOut(..) , button + , buttonInDefault ) where import qualified Data.Map as M @@ -19,7 +19,7 @@ data ButtonIn t m = ButtonIn , _buttonIn_waiting :: Event t Bool } -buttonInDefault :: forall t m. MonadWidget t m => ButtonIn t m +buttonInDefault :: forall t m. (MonadWidget t m) => ButtonIn t m buttonInDefault = ButtonIn { _buttonIn_class = R.constDyn "" , _buttonIn_content = R.blank |