kleisli 0.0.3 → 0.0.5

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 7d09744d8d852c0e3029f00ac2401eec3612d573
-  data.tar.gz: f032929f64dd3e3b500825c0122b3b34a72aa22b
+  metadata.gz: 8c098310eab0212453f44ea9ab52df6df00e8f6a
+  data.tar.gz: 1c696103481384d4eb9bb046f565d374410e2751
 SHA512:
-  metadata.gz: 7f14f3c4b30e1506bc57c38d300ca3470a88ce8203a709ff58e93bebad41f101c9e7ea63606e3fed4d03fefbd1ad8c138c95b22badb88a2974b9d3b006f31948
-  data.tar.gz: 5349290f24fcc4eb40b283170dac139ebedbf36d1254a2a41ad5fbd12fe866b61a6cf7332976906f8baa5113bb7c1bd1effb01c6a81b3269a43d23b03de76249
+  metadata.gz: 8acc6147e3463add46f5f30864f61e42b8207baf50df5e16f806f184df85facfbb11eaac86bbb013dc505b4314176a18f0b9cc89ae52bba211eeeb0537cbc94b
+  data.tar.gz: ce8f85be4605cd03dffdcca3836d08d14d7e3b2d21fc2a35919be57a6e711a5fe7e0780c2e6a4651bce6237eca9f117d0e63dfa75078a42ff7d5df5630bec48b

data/README.md

@@ -92,6 +92,12 @@ y = None()
 Maybe(user) >> F . Maybe . address >> F . Maybe . street
 ```
 
+As always, using point-free style is much cleaner:
+
+```ruby
+Maybe(user) >> F . Maybe . address >> F . Maybe . street
+```
+
 ### `fmap`
 
 ```ruby

data/lib/kleisli/blankslate.rb

@@ -0,0 +1,110 @@
+#!/usr/bin/env ruby
+#--
+# Copyright 2004, 2006 by Jim Weirich (jim@weirichhouse.org).
+# All rights reserved.
+
+# Permission is granted for use, copying, modification, distribution,
+# and distribution of modified versions of this work as long as the
+# above copyright notice is included.
+#++
+
+######################################################################
+# BlankSlate provides an abstract base class with no predefined
+# methods (except for <tt>\_\_send__</tt> and <tt>\_\_id__</tt>).
+# BlankSlate is useful as a base class when writing classes that
+# depend upon <tt>method_missing</tt> (e.g. dynamic proxies).
+#
+class BlankSlate
+  class << self
+
+    # Hide the method named +name+ in the BlankSlate class.  Don't
+    # hide +instance_eval+ or any method beginning with "__".
+    def hide(name)
+      methods = instance_methods.map(&:to_sym)
+      if methods.include?(name.to_sym) and
+        name !~ /^(__|instance_eval)/
+        @hidden_methods ||= {}
+        @hidden_methods[name.to_sym] = instance_method(name)
+        undef_method name
+      end
+    end
+
+    def find_hidden_method(name)
+      @hidden_methods ||= {}
+      @hidden_methods[name] || superclass.find_hidden_method(name)
+    end
+
+    # Redefine a previously hidden method so that it may be called on a blank
+    # slate object.
+    def reveal(name)
+      hidden_method = find_hidden_method(name)
+      fail "Don't know how to reveal method '#{name}'" unless hidden_method
+      define_method(name, hidden_method)
+    end
+  end
+
+  instance_methods.each { |m| hide(m) }
+end
+
+######################################################################
+# Since Ruby is very dynamic, methods added to the ancestors of
+# BlankSlate <em>after BlankSlate is defined</em> will show up in the
+# list of available BlankSlate methods.  We handle this by defining a
+# hook in the Object and Kernel classes that will hide any method
+# defined after BlankSlate has been loaded.
+#
+module Kernel
+  class << self
+    alias_method :blank_slate_method_added, :method_added
+
+    # Detect method additions to Kernel and remove them in the
+    # BlankSlate class.
+    def method_added(name)
+      result = blank_slate_method_added(name)
+      return result if self != Kernel
+      BlankSlate.hide(name)
+      result
+    end
+  end
+end
+
+######################################################################
+# Same as above, except in Object.
+#
+class Object
+  class << self
+    alias_method :blank_slate_method_added, :method_added
+
+    # Detect method additions to Object and remove them in the
+    # BlankSlate class.
+    def method_added(name)
+      result = blank_slate_method_added(name)
+      return result if self != Object
+      BlankSlate.hide(name)
+      result
+    end
+
+    def find_hidden_method(name)
+      nil
+    end
+  end
+end
+
+######################################################################
+# Also, modules included into Object need to be scanned and have their
+# instance methods removed from blank slate.  In theory, modules
+# included into Kernel would have to be removed as well, but a
+# "feature" of Ruby prevents late includes into modules from being
+# exposed in the first place.
+#
+class Module
+  alias blankslate_original_append_features append_features
+  def append_features(mod)
+    result = blankslate_original_append_features(mod)
+    return result if mod != Object
+    instance_methods.each do |name|
+      BlankSlate.hide(name)
+    end
+    result
+  end
+end

data/lib/kleisli/composition.rb

@@ -1,4 +1,4 @@
-require 'blankslate'
+require_relative 'blankslate'
 
 class Proc
   def self.comp(f, g)

data/lib/kleisli/version.rb

@@ -1,3 +1,3 @@
 module Kleisli
-  VERSION = "0.0.3"
+  VERSION = "0.0.5"
 end

data/test/kleisli/try_test.rb

@@ -24,4 +24,14 @@ class TryTest < MiniTest::Unit::TestCase
   def test_fmap_failure
     assert_kind_of ZeroDivisionError, Try { 10 / 0 }.fmap { |x| x * 2 }.exception
   end
+
+  def test_bind
+    try = Try { 20 / 10 } >-> number { Try { 10 / number } }
+    assert_equal 5, try.value
+  end
+
+  def test_pointfree
+    try = Try { 20 / 10 } >> F . Try { 10 / 2 }
+    assert_equal 5, try.value
+  end
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: kleisli
 version: !ruby/object:Gem::Version
-  version: 0.0.3
+  version: 0.0.5
 platform: ruby
 authors:
 - Josep M. Bach
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-11-10 00:00:00.000000000 Z
+date: 2014-11-11 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -55,6 +55,7 @@ files:
 - Rakefile
 - kleisli.gemspec
 - lib/kleisli.rb
+- lib/kleisli/blankslate.rb
 - lib/kleisli/composition.rb
 - lib/kleisli/either.rb
 - lib/kleisli/functor.rb