diff options
| author | Joris | 2019-10-09 23:16:00 +0200 |
|---|---|---|
| committer | Joris | 2019-10-09 23:16:04 +0200 |
| commit | 7529a18ff0ac443e7f9764b5e2d0f57a5d3a850b (patch) | |
| tree | 3d5cfc1f2318c2d4f889ee70764929f1a96e4c41 /client/src/View/Payment/Header.hs | |
| parent | e5ac82f4808e974dec5f19fc6f059efaa5214022 (diff) | |
| download | budget-7529a18ff0ac443e7f9764b5e2d0f57a5d3a850b.tar.gz budget-7529a18ff0ac443e7f9764b5e2d0f57a5d3a850b.tar.bz2 budget-7529a18ff0ac443e7f9764b5e2d0f57a5d3a850b.zip | |
Use common payment validation in the backend
Remove deprecated backend validation
Diffstat (limited to 'client/src/View/Payment/Header.hs')
| -rw-r--r-- | client/src/View/Payment/Header.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/client/src/View/Payment/Header.hs b/client/src/View/Payment/Header.hs index 7281195..6ed3b0e 100644 --- a/client/src/View/Payment/Header.hs +++ b/client/src/View/Payment/Header.hs @@ -13,6 +13,7 @@ import Data.Text (Text) import qualified Data.Text as T import Data.Time (NominalDiffTime) import qualified Data.Time as Time +import qualified Data.Validation as V import Prelude hiding (init) import Reflex.Dom (Dynamic, Event, MonadWidget, Reflex) import qualified Reflex.Dom as R @@ -150,7 +151,7 @@ searchLine reset = do , _selectIn_value = R.never , _selectIn_values = R.constDyn frequencies , _selectIn_reset = R.never - , _selectIn_isValid = const True + , _selectIn_isValid = V.Success , _selectIn_validate = R.never }) |