Class: Mercury::Monadic

Inherits:
Object
  • Object
show all
Defined in:
lib/mercury/monadic.rb

Class Method Summary collapse

Class Method Details

.open(**kws) ⇒ Object 



7
8
9
10
11
12
13
 
# 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) ⇒ Object 



15
16
17
18
19
20
21
22
23
24
25
 
# 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