From 40b4994797a797b1fa86cafda789a5c488730c6d Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 28 Oct 2018 17:57:58 +0100
Subject: Delete payment

---
 server/src/Validation/CreatePayment.hs | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 server/src/Validation/CreatePayment.hs

(limited to 'server/src/Validation/CreatePayment.hs')

diff --git a/server/src/Validation/CreatePayment.hs b/server/src/Validation/CreatePayment.hs
new file mode 100644
index 0000000..fbcdb7c
--- /dev/null
+++ b/server/src/Validation/CreatePayment.hs
@@ -0,0 +1,25 @@
+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
+      }
-- 
cgit v1.2.3