From 1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 20 Mar 2016 22:38:44 +0100
Subject: use config-manager instead of ConfigFile

---
 src/server/Validation.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/src/server/Validation.hs b/src/server/Validation.hs
index 9035be7..455ae5b 100644
--- a/src/server/Validation.hs
+++ b/src/server/Validation.hs
@@ -15,9 +15,9 @@ nonEmpty x str =
 number :: x -> (Int -> Bool) -> Text -> Either x Int
 number x numberForm str =
   case reads (T.unpack str) :: [(Int, String)] of
-    (number, _) : _ ->
-      if numberForm number
-        then Right number
+    (num, _) : _ ->
+      if numberForm num
+        then Right num
         else Left x
     _ ->
       Left x
-- 
cgit v1.2.3