git.iko.soy/rowtype-yoga/purescript-backend-optimizer
on main help sign in
rowtype-yoga/purescript-backend-optimizer/backend-es/test-snapshots/snapshots-out/Snapshot.Cps02.js
18 lines 1.3 kB history raw
1// @inline Snapshot.Cps02.mkState always
2// @inline Snapshot.Cps02.unState always
3// @inline Snapshot.Cps02.put arity=1
4// @inline Snapshot.Cps02.get always
5import * as Data$dTuple from "../Data.Tuple/index.js";
6const State = x => x;
7const unState = v => k$p => s => v(($0, $1) => k$p($0)($1), s);
8const runState = s => k => k(($0, $1) => Data$dTuple.$Tuple($0, $1), s);
9const mkState = k => (k$p, s) => k($0 => $1 => k$p($0, $1))(s);
10const put = s => (k$p, s$1) => k$p(s, undefined);
11const functorState = {map: f => k => (k$p, s) => k(($0, $1) => k$p($0, f($1)), s)};
12const monadState = {Applicative0: () => applicativeState, Bind1: () => bindState};
13const bindState = {bind: k1 => k2 => (k$p, s) => k1(($0, $1) => k2($1)(($2, $3) => k$p($2, $3), $0), s), Apply0: () => applyState};
14const applyState = {apply: f => a => (k$p, s) => f(($0, $1) => a(($2, $3) => applicativeState.pure($1($3))(($4, $5) => k$p($4, $5), $2), $0), s), Functor0: () => functorState};
15const applicativeState = {pure: a => (k$p, s) => k$p(s, a), Apply0: () => applyState};
16const $$get = (k$p, s) => k$p(s, s);
17const test4 = (k$p, s) => k$p(s + 2 | 0, undefined);
18export {State, applicativeState, applyState, bindState, functorState, $$get as get, mkState, monadState, put, runState, test4, unState};