diff options
| author | Joris | 2019-12-08 11:39:37 +0100 |
|---|---|---|
| committer | Joris | 2019-12-08 11:39:37 +0100 |
| commit | 316bda10c6bec8b5ccc9e23f1f677c076205f046 (patch) | |
| tree | 98da1d18834108af50f80ca6fa5c0f4facc42472 /client/src/Component/ConfirmDialog.hs | |
| parent | e622e8fdd2e40b4306b5cc724d8dfb76bf976242 (diff) | |
| download | budget-316bda10c6bec8b5ccc9e23f1f677c076205f046.tar.gz budget-316bda10c6bec8b5ccc9e23f1f677c076205f046.tar.bz2 budget-316bda10c6bec8b5ccc9e23f1f677c076205f046.zip | |
Add category page
Diffstat (limited to 'client/src/Component/ConfirmDialog.hs')
| -rw-r--r-- | client/src/Component/ConfirmDialog.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/client/src/Component/ConfirmDialog.hs b/client/src/Component/ConfirmDialog.hs index 50e30ed..cf26593 100644 --- a/client/src/Component/ConfirmDialog.hs +++ b/client/src/Component/ConfirmDialog.hs @@ -13,12 +13,12 @@ import qualified Component.Modal as Modal import qualified Util.Either as EitherUtil import qualified Util.WaitFor as WaitFor -data In t m a = In +data In t m = In { _in_header :: Text - , _in_confirm :: Event t () -> m (Event t a) + , _in_confirm :: Event t () -> m (Event t ()) } -view :: forall t m a. MonadWidget t m => (In t m a) -> Modal.Content t m a +view :: forall t m a. MonadWidget t m => (In t m) -> Modal.Content t m view input _ = R.divClass "confirm" $ do R.divClass "confirmHeader" $ |