diff options
| author | Joris | 2019-10-12 11:23:10 +0200 |
|---|---|---|
| committer | Joris | 2019-10-12 11:23:10 +0200 |
| commit | 52331eeadce8d250564851c25fc965172640bc55 (patch) | |
| tree | e634c6d232d9a28384499fe19caeb80288d05df9 /client/src/View/Payment.hs | |
| parent | 7529a18ff0ac443e7f9764b5e2d0f57a5d3a850b (diff) | |
| download | budget-52331eeadce8d250564851c25fc965172640bc55.tar.gz budget-52331eeadce8d250564851c25fc965172640bc55.tar.bz2 budget-52331eeadce8d250564851c25fc965172640bc55.zip | |
Implement client routing
Diffstat (limited to 'client/src/View/Payment.hs')
| -rw-r--r-- | client/src/View/Payment.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/client/src/View/Payment.hs b/client/src/View/Payment.hs index f2a5071..1072a5e 100644 --- a/client/src/View/Payment.hs +++ b/client/src/View/Payment.hs @@ -1,7 +1,6 @@ module View.Payment ( widget , PaymentIn(..) - , PaymentOut(..) ) where import Data.Text (Text) @@ -26,11 +25,7 @@ data PaymentIn = PaymentIn { _paymentIn_init :: Init } -data PaymentOut = PaymentOut - { - } - -widget :: forall t m. MonadWidget t m => PaymentIn -> m PaymentOut +widget :: forall t m. MonadWidget t m => PaymentIn -> m () widget paymentIn = do R.elClass "main" "payment" $ do rec @@ -86,7 +81,7 @@ widget paymentIn = do ] } - pure $ PaymentOut {} + pure () debounceSearchName :: forall t m. MonadWidget t m |