Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix foldr1 bug (wrong base case). Reveal `isClickedOn` in Signal.Mous…

…e. Bump version number.
  • Loading branch information...
commit 03245c286a9964076f6c327044de7d1e6517881b 1 parent c3ec869
Evan Czaplicki evancz authored
25 core-js/List.js
View
@@ -127,17 +127,20 @@ var List = function() {
}(_temp_50)
}
}
- function foldr1(f_53) {
- return function(_temp_54) {
- return function(v) {
- if("Cons" !== v[0]) {
- return undefined
- }else {
- var x_55 = v[1];
- var xs_56 = v[2];
- return foldr(f_53)(x_55)(xs_56)
- }
- }(_temp_54)
+ function foldr1(f) {
+ return function(xs) {
+ if (xs[0] === "Nil") { throw "'foldr1' requires an non-empty list." }
+ if (xs[0] !== "Cons") { throwError('foldr1'); }
+ var arr = [];
+ while (xs[0] === "Cons") {
+ arr.push(xs[1]);
+ xs = xs[2];
+ }
+ var acc = arr.pop();
+ for (var i = arr.length; i--; ) {
+ acc = f(arr[i])(acc);
+ }
+ return acc;
}
}
function scanl(f) {
2  core-js/cat.bat
View
@@ -2,6 +2,6 @@ copy /B Guid.js+foreign\JavaScript.js+Value.js+List.js+Data.js+collage\Color.js+
cd ..\elm
-copy /B ..\elm-mini.js elm-runtime-0.3.5.js
+copy /B ..\elm-mini.js elm-runtime-0.3.5.1.js
cabal install
7 core-js/runtime/Signal.js
View
@@ -66,8 +66,8 @@ var Signal = function() {
y: Elm.Lift(function(p){return p[2];},[position]),
isClicked: isClicked,
isDown: isDown,
- clicks: clicks
- //clickedOn: clickedOn
+ clicks: clicks,
+ isClickedOn: clickedOn
};
}();
@@ -193,7 +193,8 @@ var Signal = function() {
};
};
return {get : fetch("GET"), post : fetch("POST"),
- gets : fetches("GET"), posts : fetches("POST") };
+ gets : fetches("GET"), posts : fetches("POST")
+ };
}();
var Random = function() {
var inRange = function(min) { return function(max) {
4 elm/Elm.cabal
View
@@ -1,6 +1,6 @@
Name: Elm
-Version: 0.3.5
+Version: 0.3.5.1
Synopsis: The Elm language module.
Description: Elm aims to make client-side web-development more pleasant.
It is a statically/strongly typed, functional reactive
@@ -22,7 +22,7 @@ Category: Compiler, Language
Build-type: Simple
Extra-source-files: changelog.txt
-Data-files: elm-runtime-0.3.5.js
+Data-files: elm-runtime-0.3.5.1.js
Cabal-version: >=1.8
source-repository head
4 elm/src/Compiler.hs
View
@@ -35,11 +35,11 @@ elm = ELM { make = False &= help "automatically compile dependencies."
, generate_noscript = False &= help "Add generated <noscript> tag to HTML output."
} &=
help "Compile Elm programs to HTML, CSS, and JavaScript." &=
- summary "The Elm Compiler v0.3.5, (c) Evan Czaplicki"
+ summary "The Elm Compiler v0.3.5.1, (c) Evan Czaplicki"
main = do
args <- cmdArgs elm
- mini <- getDataFileName "elm-runtime-0.3.5.js"
+ mini <- getDataFileName "elm-runtime-0.3.5.1.js"
compileArgs mini args
compileArgs mini (ELM _ [] _ _ _ _ _) =
Please sign in to comment.
Something went wrong with that request. Please try again.