aboutsummaryrefslogtreecommitdiff
path: root/server/src/Validation/Atomic.hs
diff options
context:
space:
mode:
authorJoris2018-11-01 13:14:25 +0100
committerJoris2019-08-04 21:14:32 +0200
commit2741f47ef7b87255203bc2f7f7b2b9140c70b8f0 (patch)
treeea5f685cdf8f3de2efa1113325d45faaa90c977e /server/src/Validation/Atomic.hs
parent86957359ecf54c205aee1c09e151172c327e987a (diff)
downloadbudget-2741f47ef7b87255203bc2f7f7b2b9140c70b8f0.tar.gz
budget-2741f47ef7b87255203bc2f7f7b2b9140c70b8f0.tar.bz2
budget-2741f47ef7b87255203bc2f7f7b2b9140c70b8f0.zip
Implementing client side validation
Diffstat (limited to 'server/src/Validation/Atomic.hs')
-rw-r--r--server/src/Validation/Atomic.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/server/src/Validation/Atomic.hs b/server/src/Validation/Atomic.hs
index d15ad49..7a7351a 100644
--- a/server/src/Validation/Atomic.hs
+++ b/server/src/Validation/Atomic.hs
@@ -19,7 +19,7 @@ nonNullNumber :: Int -> Maybe Text
nonNullNumber n =
if n == 0
then Just $ Msg.get Msg.Form_NonNullNumber
- else Nothing
+ else Nothing
-- number :: (Int -> Bool) -> Text -> Maybe Int
-- number numberForm str =