class Mercury::Monadic

Public Class Methods

new(mercury) click to toggle source
# File lib/mercury/monadic.rb, line 39
def initialize(mercury)
  @mercury = mercury
end
open(**kws) click to toggle source
# File lib/mercury/monadic.rb, line 7
def self.open(**kws)
  Cps.new do |&k|
    Mercury.open(**kws) do |m|
      k.call(new(m))
    end
  end
end
wrap(method_name) click to toggle source
# File lib/mercury/monadic.rb, line 15
def self.wrap(method_name)
  define_method(method_name) do |*args, **kws, &block|
    Cps.new do |&k|
      if @mercury.method(method_name).parameters.map(&:first).include?(:key)
        @mercury.send(method_name, *[*args, *block], **kws, &k)
      else
        @mercury.send(method_name, *[*args, *block], &k)
      end
    end
  end
end