git.iko.soy/elk
on 4bec310 help sign in
elk/libraries/Native/Trampoline.js
24 lines 667 B history raw
1Elm.Native.Trampoline = {};
2Elm.Native.Trampoline.make = function(elm) {
3 elm.Native = elm.Native || {};
4 elm.Native.Trampoline = elm.Native.Trampoline || {};
5 if (elm.Native.Trampoline.values) return elm.Native.Trampoline.values;
7 // trampoline : Trampoline a -> a
8 function trampoline(t) {
9 var tramp = t;
10 while(true) {
11 switch(tramp.ctor) {
12 case "Done":
13 return tramp._0;
14 case "Continue":
15 tramp = tramp._0({ctor: "_Tuple0"});
16 continue;
17 }
18 }
19 }
21 return elm.Native.Trampoline.values = {
22 trampoline:trampoline
23 };
24};