mirror of
https://github.com/mdgriffith/elm-optimize-level-2.git
synced 2024-11-23 00:32:54 +03:00
Merge pull request #65 from jfmengels/list-all-replacement
Add replacement for List.all
This commit is contained in:
commit
30b83c11d1
15
src/replacements/list/$elm$core$List$all.js
Normal file
15
src/replacements/list/$elm$core$List$all.js
Normal file
@ -0,0 +1,15 @@
|
||||
var $elm$core$List$all = F2(function (isOkay, list) {
|
||||
all: while (true) {
|
||||
if (!list.b) {
|
||||
return true;
|
||||
}
|
||||
else {
|
||||
var x = list.a;
|
||||
if (!isOkay(x)) {
|
||||
return false;
|
||||
}
|
||||
list = list.b;
|
||||
continue all;
|
||||
}
|
||||
}
|
||||
});
|
Loading…
Reference in New Issue
Block a user