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 /server/src/Validation/CreatePayment.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 'server/src/Validation/CreatePayment.hs')
-rw-r--r-- | server/src/Validation/CreatePayment.hs | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/server/src/Validation/CreatePayment.hs b/server/src/Validation/CreatePayment.hs deleted file mode 100644 index fbcdb7c..0000000 --- a/server/src/Validation/CreatePayment.hs +++ /dev/null @@ -1,25 +0,0 @@ -module Validation.CreatePayment - ( validate - ) where - -import Data.Maybe (catMaybes) - -import Common.Model.CreatePayment (CreatePayment (..), - CreatePaymentError (..)) -import qualified Validation.Atomic as Atomic - -validate :: CreatePayment -> Maybe CreatePaymentError -validate p = - if not . null . catMaybes $ [ nameError, costError ] - then Just createPaymentError - else Nothing - where - nameError = Atomic.nonEmpty . _createPayment_name $ p - costError = Atomic.nonNullNumber . _createPayment_cost $ p - createPaymentError = CreatePaymentError - { _createPaymentError_name = nameError - , _createPaymentError_cost = costError - , _createPaymentError_date = Nothing - , _createPaymentError_category = Nothing - , _createPaymentError_frequency = Nothing - } |