diff options
| author | Joris | 2018-10-28 17:57:58 +0100 |
|---|---|---|
| committer | Joris | 2018-10-28 17:57:58 +0100 |
| commit | 40b4994797a797b1fa86cafda789a5c488730c6d (patch) | |
| tree | ad195b31fa442821b9de8f99364e254f0f41935f /client/src/Component/Select.hs | |
| parent | df83b634006c699cfa1e921bf74ce951a906a62f (diff) | |
Delete payment
Diffstat (limited to 'client/src/Component/Select.hs')
| -rw-r--r-- | client/src/Component/Select.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/client/src/Component/Select.hs b/client/src/Component/Select.hs index 876548e..17a4958 100644 --- a/client/src/Component/Select.hs +++ b/client/src/Component/Select.hs @@ -19,7 +19,7 @@ data SelectOut t a = SelectOut { _selectOut_value :: Dynamic t a } -select :: forall t m a. (Ord a) => MonadWidget t m => SelectIn t a -> m (SelectOut t a) +select :: forall t m a. (Ord a, MonadWidget t m) => SelectIn t a -> m (SelectOut t a) select selectIn = R.divClass "selectInput" $ do R.el "label" $ R.text (_selectIn_label selectIn) |