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/Form.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/Form.hs')
-rw-r--r-- | client/src/View/Payment/Form.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/client/src/View/Payment/Form.hs b/client/src/View/Payment/Form.hs index 9889638..187b64b 100644 --- a/client/src/View/Payment/Form.hs +++ b/client/src/View/Payment/Form.hs @@ -46,7 +46,7 @@ data Input t p = Input , _input_date :: Day , _input_category :: CategoryId , _input_frequency :: Frequency - , _input_mkPayload :: Text -> Int -> Day -> CategoryId -> Frequency -> p + , _input_mkPayload :: Text -> Text -> Text -> CategoryId -> Frequency -> p , _input_httpMethod :: HttpMethod } @@ -80,7 +80,7 @@ view input = do (_input_name input <$ reset) confirm - cost <- _inputOut_value <$> (Component.input + cost <- _inputOut_raw <$> (Component.input (Component.defaultInputIn { _inputIn_label = Msg.get Msg.Payment_Cost , _inputIn_initialValue = _input_cost input @@ -91,7 +91,7 @@ view input = do let initialDate = T.pack . Calendar.showGregorian . _input_date $ input - date <- _inputOut_value <$> (Component.input + date <- _inputOut_raw <$> (Component.input (Component.defaultInputIn { _inputIn_label = Msg.get Msg.Payment_Date , _inputIn_initialValue = initialDate @@ -113,7 +113,7 @@ view input = do , _selectIn_value = setCategory , _selectIn_values = R.constDyn categories , _selectIn_reset = _input_category input <$ reset - , _selectIn_isValid = (/= -1) + , _selectIn_isValid = PaymentValidation.category (map _category_id $ _input_categories input) , _selectIn_validate = confirm }) @@ -124,8 +124,8 @@ view input = do cat <- category return ((_input_mkPayload input) <$> ValidationUtil.nelError n - <*> ValidationUtil.nelError c - <*> ValidationUtil.nelError d + <*> V.Success c + <*> V.Success d <*> ValidationUtil.nelError cat <*> V.Success (_input_frequency input)) |