monadist 0.1 → 0.1.1

data/examples/continuation/acting_as_maybe.rb

@@ -0,0 +1,22 @@
+require 'monadist'
+
+words = %w[apple tree]
+
+p Monadist::Continuation.unit(words).
+    fmap { |array| array.map &:length }.
+    run
+
+
+words = nil
+
+
+
+def maybe(value)
+  Monadist::Continuation.new { |next_block| next_block.call value unless value.nil? }
+end
+
+
+
+p maybe(words).
+    fmap { |array| array.map &:length }.
+    run

data/examples/general.rb

@@ -3,8 +3,8 @@ require 'monadist/shims'
 require 'json'
 
 nothing = possibly_nil nil
-maybe = possibly_nil '{"first_name":"Sam", "last_name":"Vimes"}'
-list = list '{"first_name":"Granny", "last_name":"Weatherwax"}', '{"first_name":"Nanny", "last_name":"Ogg"}'
+just_value = possibly_nil '{"first_name":"Sam", "last_name":"Vimes"}'
+json_list = list ['{"first_name":"Granny", "last_name":"Weatherwax"}', '{"first_name":"Nanny", "last_name":"Ogg"}']
 continuation = with '{"first_name":"Fred", "last_name":"Colon"}'
 meanwhile = meanwhile_with '{"first_name":"Nobby", "last_name":"Nobbs"}'
 
@@ -19,8 +19,8 @@ end
 
 
 p full_name(nothing).value
-p full_name(maybe).value
-p full_name(list).values
+p full_name(just_value).value
+p full_name(json_list).values
 full_name(continuation).run { |full_name| p full_name }
 
 full_name(meanwhile).run { |full_name| p full_name }

data/lib/monadist/shims.rb

@@ -4,8 +4,8 @@ end
 
 
 
-def list(*values)
-  Monadist::List.unit *values
+def list(value)
+  Monadist::List.unit value
 end
 
 

data/lib/monadist/version.rb

@@ -1,3 +1,3 @@
 module Monadist
-  VERSION = '0.1'
+  VERSION = '0.1.1'
 end

data/spec/monadist_spec.rb

@@ -2,6 +2,6 @@ require 'spec_helper'
 
 describe Monadist do
   it 'should have a version number' do
-    expect(Monadist::VERSION).to eq '0.1'
+    expect(Monadist::VERSION).to eq '0.1.1'
   end
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: monadist
 version: !ruby/object:Gem::Version
-  version: '0.1'
+  version: 0.1.1
   prerelease: 
 platform: ruby
 authors:
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-11-18 00:00:00.000000000 Z
+date: 2014-11-19 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -75,6 +75,7 @@ files:
 - LICENSE.txt
 - README.md
 - Rakefile
+- examples/continuation/acting_as_maybe.rb
 - examples/continuation/github_fetch_original.rb
 - examples/continuation/github_fetch_refactored_continuation.rb
 - examples/continuation/github_fetch_refactored_meanwhile.rb