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/Atomic.hs | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 server/src/Validation/Atomic.hs

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

diff --git a/server/src/Validation/Atomic.hs b/server/src/Validation/Atomic.hs
new file mode 100644
index 0000000..d15ad49
--- /dev/null
+++ b/server/src/Validation/Atomic.hs
@@ -0,0 +1,32 @@
+module Validation.Atomic
+  ( nonEmpty
+  , nonNullNumber
+  -- , number
+  ) where
+
+import           Data.Text  (Text)
+import qualified Data.Text  as T
+
+import qualified Common.Msg as Msg
+
+nonEmpty :: Text -> Maybe Text
+nonEmpty str =
+  if T.null str
+    then Just $ Msg.get Msg.Form_NonEmpty
+    else Nothing
+
+nonNullNumber :: Int -> Maybe Text
+nonNullNumber n =
+  if n == 0
+     then Just $ Msg.get Msg.Form_NonNullNumber
+    else Nothing
+
+-- number :: (Int -> Bool) -> Text -> Maybe Int
+-- number numberForm str =
+--   case reads (T.unpack str) :: [(Int, String)] of
+--     (num, _) : _ ->
+--       if numberForm num
+--         then Just num
+--         else Nothing
+--     _ ->
+--       Nothing
-- 
cgit v1.2.3