aboutsummaryrefslogtreecommitdiff
path: root/src/client/Native/Reads.js
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/Native/Reads.js')
-rw-r--r--src/client/Native/Reads.js13
1 files changed, 4 insertions, 9 deletions
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 = {