def Sess.bind

mylsm-lsm-store@0.3.2.0 · mylsm.bend:99

import Base

99def Sess.bind(a, -A: Kind(a), -B: Kind(a), sess: Sess<a, A>, fun: A -> Sess<a, B>) -> Sess<a, B>:
100  Sess{st => Sess.apply(a, A, a, B, Sess.run_go(a, A, sess, st), fun)}