yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Get rid of dead code in Prelude. Need to figure out how to kill prelude entirely.

Browse source
This commit is contained in:
Evan Czaplicki 2013-12-18 12:53:11 -08:00
parent 5aedf723ec
commit 32e7d1da03
2 changed files with 1 additions and 64 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
libraries/Native/Prelude.js
View file

@ -1,52 +0,0 @@
Elm.Native.Prelude = {};
Elm.Native.Prelude.make = function(elm) {
elm.Native = elm.Native || {};
elm.Native.Prelude = elm.Native.Prelude || {};
if (elm.Native.Prelude.values) return elm.Native.Prelude.values;
var JS = Elm.Native.JavaScript.make(elm);
var Maybe = Elm.Maybe.make(elm);
var Char = Elm.Char.make(elm);
function readInt(str) {
var s = JS.fromString(str);
var len = s.length;
if (len === 0) { return Maybe.Nothing; }
var start = 0;
if (s[0] == '-') {
if (len === 1) { return Maybe.Nothing; }
start = 1;
}
for (var i = start; i < len; ++i) {
if (!Char.isDigit(s[i])) { return Maybe.Nothing; }
}
return Maybe.Just(parseInt(s, 10));
}
function readFloat(str) {
var s = JS.fromString(str);
var len = s.length;
if (len === 0) { return Maybe.Nothing; }
var start = 0;
if (s[0] == '-') {
if (len === 1) { return Maybe.Nothing; }
start = 1;
}
var dotCount = 0;
for (var i = start; i < len; ++i) {
if (Char.isDigit(s[i])) { continue; }
if (s[i] === '.') {
dotCount += 1;
if (dotCount <= 1) { continue; }
}
return Maybe.Nothing;
}
return Maybe.Just(parseFloat(s));
}
return elm.Native.Prelude.values = {
readInt:readInt,
readFloat:readFloat
};
};

13
libraries/Prelude.elm
View file

@ -1,19 +1,8 @@
module Prelude where
{-| Everything that is automatically imported -}
import Basics (String)
import Maybe (Maybe)
import Native.Prelude
import Native.Show
-- Convert almost any value to its string representation.
show : a -> String
show = Native.Show.show
-- Read an integer from a string
readInt : String -> Maybe Int
readInt = Native.Prelude.readInt
-- Read a float from a string.
readFloat : String -> Maybe Float
readFloat = Native.Prelude.readFloat
show = Native.Show.show