From c345f9daa28e0c174b35413addf78df0a793f8c1 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 1 Aug 2015 00:31:36 +0200
Subject: Adding error feedbacks when adding a payment

---
 src/client/Native/Reads.js | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

(limited to 'src/client/Native/Reads.js')

diff --git a/src/client/Native/Reads.js b/src/client/Native/Reads.js
index 52590f9..5785aed 100644
--- a/src/client/Native/Reads.js
+++ b/src/client/Native/Reads.js
@@ -7,18 +7,13 @@ Elm.Native.Reads.make = function(localRuntime) {
     return localRuntime.Native.Reads.values;
   }
 
-  var Result = Elm.Result.make(localRuntime);
-
-  function div(a, b)
-  {
-    return (a/b)|0;
-  }
+  var Maybe = Elm.Maybe.make(localRuntime);
 
   function readInt(str) {
     var number = Number(str);
-    return isNaN(number)
-             ? Result.Err("unable to parse '" + str + "' as a number")
-             : Result.Ok(number);
+    return isNaN(number) || str === ''
+             ? Maybe.Nothing
+             : Maybe.Just(number);
   }
 
   return localRuntime.Native.Reads.values = {
-- 
cgit v1.2.3