kleisli 0.2.0 → 0.2.1

checksums.yaml

@@ -1,7 +1,7 @@
----
-SHA1:
-  metadata.gz: 997aca6d77f858cf9262df7edbc913179cd8004f
-  data.tar.gz: dac24d37b400e98703e6299fb6a702ea5df773eb
-SHA512:
-  metadata.gz: 009f9357a66c1003610f90cd86e734c00632efa6b8b511d5eec2bdc91daceb41bc3f1ebf667615065aefd506435510f8de97a83518a2e6259241f649224d0fef
-  data.tar.gz: 77f136e1fb92e6d315c7b423aa2c5e8f32b3f3f1f2ec0071488c51557cab9d52d51a3d6b1f105211f2525979825456a4ea09ea53aa78d6e0b2809ffa581f9ec7
+--- 
+SHA1: 
+  metadata.gz: 0edc56dbf5e93057c443c0957b312524b8d20d7d
+  data.tar.gz: dee2ed0829f1ad9c4ad19f15a8f86293a79e2363
+SHA512: 
+  metadata.gz: 890887f61bd1b551028fea3384da9654e5394fa4da1ee993d3bf77ac5f43befe3b7ec64cd28002178dc933952cf0ecc638c694c37a88d87a64bcfeddfed1d068
+  data.tar.gz: 513db7d077f6061c734c6cde0fa7ccee7ba94e64b8b5195cce1d49642311ec4360c96dffba20cd44ef86b914d5aae0ae1461a86bf42e85fdbb12f8042873a623

data/README.md

@@ -1,4 +1,4 @@
-# Kleisli [![Build Status](https://secure.travis-ci.org/txus/adts.png)](http://travis-ci.org/txus/adts)
+# Kleisli [![Build Status](https://secure.travis-ci.org/txus/kleisli.png)](http://travis-ci.org/txus/kleisli)
 
 An idiomatic, clean implementation of a few common useful monads in Ruby,
 written by [Ryan Levick][rylev] and me.
@@ -68,7 +68,7 @@ f.call "  localhost:9092     "
 
 # Partially applied lambda:
 my_split = lambda { |str, *args| str.split(*args) }
-f = F . fn(":", &split)
+f = F . fn(":", &my_split) . strip
 f.call "  localhost:9092     "
 # => ["localhost", "9092"]
 ```
@@ -261,7 +261,7 @@ require "kleisli"
 
 add = -> x, y { x + y }
 Right(add) * Right(10) * Right(2)
-# => Some(12)
+# => Right(12)
 Right(add) * Left("error") * Right(2)
 # => Left("error")
 ```
@@ -298,46 +298,6 @@ result # => Some(10)
 result # => None()
 ```
 
-## Writer
-
-The Writer monad is arguably the least useful monad in Ruby (as side effects
-are uncontrolled), but let's take a look at it anyway.
-
-It is used to model computations that *append* to some kind of state (which
-needs to be a Monoid, expressed in the `Kleisli::Monoid` mixin) at each step.
-
-(We've already implemented the Monoid interface for `String`, `Array`, `Hash`,
-`Fixnum` and `Float` for you.)
-
-An example would be a pipeline of computations that append to a log, for
-example a list of strings.
-
-### `>->` (bind)
-
-```ruby
-require "kleisli"
-
-writer = Writer([], 100) >-> value {
-  Writer(["added 100"], value + 100)
-} >-> value {
-  Writer(["added 140 more"], value + 140)
-} # => Writer(["added 100", "added 140 more"], 340)
-
-log, value = writer.unwrap
-log # => ["added 100", "added 140 more"]
-value # => 340
-```
-
-### `fmap`
-
-```ruby
-require "kleisli"
-
-writer = Writer([], 100).fmap { |value|
-  value + 100
-} # => Writer([], 200)
-```
-
 ## Future
 
 The Future monad models a pipeline of computations that will happen in the future, as soon as the value needed for each step is available. It is useful to model, for example, a sequential chain of HTTP calls.

data/Rakefile

@@ -3,7 +3,7 @@ require "rake/testtask"
 
 Rake::TestTask.new do |t|
   t.libs << "test"
-  t.test_files = FileList['test/**/*.rb']
+  t.test_files = FileList['test/**/*_test.rb']
   t.verbose = true
 end
 

data/kleisli.gemspec

@@ -20,4 +20,5 @@ Gem::Specification.new do |spec|
 
   spec.add_development_dependency "bundler", "~> 1.6"
   spec.add_development_dependency "rake", "~> 10.0"
+  spec.add_development_dependency "minitest", "~> 5.5"
 end

data/lib/kleisli.rb

@@ -1,7 +1,6 @@
 require "kleisli/version"
 require "kleisli/maybe"
 require "kleisli/try"
-require "kleisli/writer"
 require "kleisli/future"
 require "kleisli/either"
 require "kleisli/composition"

data/lib/kleisli/blank.rb

@@ -24,7 +24,7 @@ class Blank
     def hide(name)
       methods = instance_methods.map(&:to_sym)
       if methods.include?(name.to_sym) and
-        name !~ /^(__|instance_eval)/
+        name !~ /^(__|instance_eval|object_id)/
         @hidden_methods ||= {}
         @hidden_methods[name.to_sym] = instance_method(name)
         undef_method name

data/lib/kleisli/composition.rb

@@ -1,18 +1,10 @@
 require_relative 'blank'
 
-class Proc
-  def self.comp(f, g)
-    lambda { |*args| f[g[*args]] }
-  end
-
-  def *(g)
-    Proc.comp(self, g)
-  end
-end
-
 module Kleisli
   class ComposedFn < Blank
-    include ::Kernel
+    def self.comp(f, g)
+      lambda { |*args| f[g[*args]] }
+    end
 
     def initialize(fns=[])
       @fns = fns
@@ -34,7 +26,7 @@ module Kleisli
 
     def call(*args)
       if @fns.any?
-        @fns.reduce(:*).call(*args)
+        @fns.reduce { |f, g| ComposedFn.comp(f, g) }.call(*args)
       else
         args.first
       end

data/lib/kleisli/version.rb

@@ -1,3 +1,3 @@
 module Kleisli
-  VERSION = "0.2.0"
+  VERSION = "0.2.1"
 end

data/test/kleisli/composition_test.rb

@@ -1,6 +1,6 @@
 require 'test_helper'
 
-class CompositionTest < MiniTest::Unit::TestCase
+class CompositionTest < Minitest::Test
   def test_one_method
     f = F . first
     result = f.call([1])

data/test/kleisli/either_test.rb

@@ -1,6 +1,6 @@
 require 'test_helper'
 
-class EitherTest < MiniTest::Unit::TestCase
+class EitherTest < Minitest::Test
   def test_lift_right
     assert_equal 3, Right(3).value
   end

data/test/kleisli/future_test.rb

@@ -1,6 +1,6 @@
 require 'test_helper'
 
-class FutureTest < MiniTest::Unit::TestCase
+class FutureTest < Minitest::Test
   def test_immediate_value
     assert_equal 30, Future(30).await
   end

data/test/kleisli/maybe_test.rb

@@ -1,6 +1,6 @@
 require 'test_helper'
 
-class MaybeTest < MiniTest::Unit::TestCase
+class MaybeTest < Minitest::Test
   def test_unwrapping_some
     assert_equal 3, Some(3).value
   end

data/test/kleisli/try_test.rb

@@ -1,6 +1,6 @@
 require 'test_helper'
 
-class TryTest < MiniTest::Unit::TestCase
+class TryTest < Minitest::Test
   def test_success
     assert_equal 2, Try { 10 / 5 }.value
   end

data/test/test_helper.rb

@@ -1,2 +1,3 @@
 require 'kleisli'
-require 'test/unit'
+require 'minitest'
+require 'minitest/autorun'

metadata

@@ -1,61 +1,66 @@
---- !ruby/object:Gem::Specification
+--- !ruby/object:Gem::Specification 
 name: kleisli
-version: !ruby/object:Gem::Version
-  version: 0.2.0
+version: !ruby/object:Gem::Version 
+  version: 0.2.1
 platform: ruby
-authors:
+authors: 
 - Josep M. Bach
 - Ryan Levick
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-11-22 00:00:00.000000000 Z
-dependencies:
-- !ruby/object:Gem::Dependency
+
+date: 2014-12-18 00:00:00 Z
+dependencies: 
+- !ruby/object:Gem::Dependency 
   name: bundler
-  requirement: !ruby/object:Gem::Requirement
-    requirements:
-    - - "~>"
-      - !ruby/object:Gem::Version
-        version: '1.6'
-  type: :development
   prerelease: false
-  version_requirements: !ruby/object:Gem::Requirement
-    requirements:
-    - - "~>"
-      - !ruby/object:Gem::Version
-        version: '1.6'
-- !ruby/object:Gem::Dependency
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        version: "1.6"
+  type: :development
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
   name: rake
-  requirement: !ruby/object:Gem::Requirement
-    requirements:
-    - - "~>"
-      - !ruby/object:Gem::Version
-        version: '10.0'
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        version: "10.0"
   type: :development
+  version_requirements: *id002
+- !ruby/object:Gem::Dependency 
+  name: minitest
   prerelease: false
-  version_requirements: !ruby/object:Gem::Requirement
-    requirements:
-    - - "~>"
-      - !ruby/object:Gem::Version
-        version: '10.0'
+  requirement: &id003 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        version: "5.5"
+  type: :development
+  version_requirements: *id003
 description: Usable, idiomatic common monads in Ruby
-email:
+email: 
 - josep.m.bach@gmail.com
 - ryan.levick@gmail.com
 executables: []
+
 extensions: []
+
 extra_rdoc_files: []
-files:
-- ".gitignore"
-- ".travis.yml"
+
+files: 
+- .gitignore
+- .travis.yml
 - Gemfile
 - LICENSE.txt
 - README.md
 - Rakefile
 - kleisli.gemspec
 - lib/kleisli.rb
-- lib/kleisli/applicative_functor.rb
 - lib/kleisli/blank.rb
 - lib/kleisli/composition.rb
 - lib/kleisli/either.rb
@@ -63,48 +68,44 @@ files:
 - lib/kleisli/future.rb
 - lib/kleisli/maybe.rb
 - lib/kleisli/monad.rb
-- lib/kleisli/monoid.rb
 - lib/kleisli/try.rb
 - lib/kleisli/version.rb
-- lib/kleisli/writer.rb
 - test/kleisli/composition_test.rb
 - test/kleisli/either_test.rb
 - test/kleisli/future_test.rb
 - test/kleisli/maybe_test.rb
-- test/kleisli/monoid_test.rb
 - test/kleisli/try_test.rb
-- test/kleisli/writer_test.rb
 - test/test_helper.rb
 homepage: https://github.com/txus/kleisli
-licenses:
+licenses: 
 - MIT
 metadata: {}
+
 post_install_message: 
 rdoc_options: []
-require_paths:
+
+require_paths: 
 - lib
-required_ruby_version: !ruby/object:Gem::Requirement
-  requirements:
-  - - ">="
-    - !ruby/object:Gem::Version
-      version: '0'
-required_rubygems_version: !ruby/object:Gem::Requirement
-  requirements:
-  - - ">="
-    - !ruby/object:Gem::Version
-      version: '0'
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - &id004 
+    - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - *id004
 requirements: []
+
 rubyforge_project: 
-rubygems_version: 2.2.2
+rubygems_version: 2.4.4
 signing_key: 
 specification_version: 4
 summary: Usable, idiomatic common monads in Ruby
-test_files:
+test_files: 
 - test/kleisli/composition_test.rb
 - test/kleisli/either_test.rb
 - test/kleisli/future_test.rb
 - test/kleisli/maybe_test.rb
-- test/kleisli/monoid_test.rb
 - test/kleisli/try_test.rb
-- test/kleisli/writer_test.rb
 - test/test_helper.rb

data/lib/kleisli/applicative_functor.rb

@@ -1,4 +0,0 @@
-module Kleisli
-  class ApplicativeFunctor < Functor
-  end
-end

data/lib/kleisli/monoid.rb

@@ -1,65 +0,0 @@
-module Kleisli
-  module Monoid
-    def fold(others)
-      others.reduce(self) { |acc, x| acc.mappend x }
-    end
-
-    def mempty
-      raise NotImplementedError, "this monoid doesn't implement mpemty"
-    end
-
-    def mappend(other)
-      raise NotImplementedError, "this monoid doesn't implement mappend"
-    end
-  end
-end
-
-String.class_eval do
-  include Kleisli::Monoid
-
-  def mempty
-    ""
-  end
-
-  alias mappend +
-end
-
-Array.class_eval do
-  include Kleisli::Monoid
-
-  def mempty
-    []
-  end
-
-  alias mappend +
-end
-
-Hash.class_eval do
-  include Kleisli::Monoid
-
-  def mempty
-    {}
-  end
-
-  alias mappend merge
-end
-
-Fixnum.class_eval do
-  include Kleisli::Monoid
-
-  def mempty
-    0
-  end
-
-  alias mappend +
-end
-
-Float.class_eval do
-  include Kleisli::Monoid
-
-  def mempty
-    0
-  end
-
-  alias mappend +
-end

data/lib/kleisli/writer.rb

@@ -1,36 +0,0 @@
-require 'kleisli/monad'
-require 'kleisli/monoid'
-
-module Kleisli
-  class Writer < Monad
-    def self.lift(log, value)
-      new(log, value)
-    end
-
-    def initialize(log, value)
-      @log, @value = log, value
-    end
-
-    def ==(other)
-      unwrap == other.unwrap
-    end
-
-    def >(f)
-      other_log, other_value = f.call(@value).unwrap
-      Writer.new(@log + other_log, other_value)
-    end
-
-    def fmap(&f)
-      new_value = f.call(@value)
-      Writer.new(@log, new_value)
-    end
-
-    def unwrap
-      [@log, @value]
-    end
-  end
-end
-
-def Writer(log, value)
-  Kleisli::Writer.lift(log, value)
-end

data/test/kleisli/monoid_test.rb

@@ -1,23 +0,0 @@
-require 'test_helper'
-
-class MonoidTest < MiniTest::Unit::TestCase
-  def test_string_fold
-    assert_equal "hellogoodbye", "hello".fold(%w(good bye))
-  end
-
-  def test_array_fold
-    assert_equal [1, 2, 3], [1].fold([[2], [3]])
-  end
-
-  def test_hash_fold
-    assert_equal({a: 1, b: 2, c: 3}, {a: 1}.fold([{b: 2}, {c: 3}]))
-  end
-
-  def test_fixnum_fold
-    assert_equal 6, 1.fold([2,3])
-  end
-
-  def test_float_fold
-    assert_equal 6.0, 1.0.fold([2.0,3.0])
-  end
-end

data/test/kleisli/writer_test.rb

@@ -1,19 +0,0 @@
-require 'test_helper'
-
-class WriterTest < MiniTest::Unit::TestCase
-  def test_unwrap
-    log, value = Writer("log", 100).unwrap
-    assert_equal "log", log
-    assert_equal 100, value
-  end
-
-  def test_bind
-    writer = Writer("foo", 100) >-> value { Writer("bar", value + 100) }
-    assert_equal Writer("foobar", 200), writer
-  end
-
-  def test_fmap
-    writer = Writer("foo", 100).fmap { |value| value + 100 }
-    assert_equal Writer("foo", 200), writer
-  end
-end