arrows 0.0.5 → 0.0.6

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 8f5eb6bc7db51a9a4fe42e38ae87a7baab814343
-  data.tar.gz: 605da301958aa87e8153c4b82f5f6eb762769869
+  metadata.gz: e2ba1c064128e5483f807aa5367fa65bdd302598
+  data.tar.gz: 18024be7545a1a587b2d7c86a743b3f20c99e62a
 SHA512:
-  metadata.gz: 09b1b88225c844faae7b42611ceb4acf093c9c79ce567eb9fdc65640947722789828260910ddf82989e1ef24c047fd462265042ac16ce3132a683621ec9854a9
-  data.tar.gz: ccaa25e72e8457fe368cb5ead1d313fadab809a955cea21030587319e59c02b427b7a0ac09d58c4f8cbeaec8bf5a4198e2d8efaa366c1eead26d27a1f76ad22e
+  metadata.gz: fafb6881ac9cafa72974919a52bb141c9ecb3fb33674ccc784609be69e32980fc0366acbfb889182798b66111298061bce72a3cc501673ca9b3ff366cd1ff718
+  data.tar.gz: ba107db1e9864f19086282c19a4fa51248743faad98f16735826c7a0e99ac82fda5ffd09afced6d94b41a4dbb88176fcb364c96d96db5bd54ce3f0f6cf182b16

data/README.md

@@ -34,8 +34,9 @@ x -> z
 becomes
 x -> [y,z]
 
-### Arrow split
-Not implemented
+### Arrow Fork
+f ^ g produces a proc that takes in a Either, and if either is good, f is evaluated, if either is evil, g is evaluated
+
 
 ## Use Case
 Suppose you're running rails (lol what else is there in ruby?) for some sort of ecommerce app and you have an OfferController that handles inputs from an user who is trying to make an offer on some listing you have. Your controller might look like this:
@@ -93,6 +94,59 @@ class OfferController < ApplicationController
 end
 ```
 That is, offer creation has been reduced back down to a process with distinct steps. 
+
+### Another Example
+Here's an example directly from one of my other applications
+```ruby
+class Apiv1::Contacts::UpdateController < Apiv1::UsersController
+  before_filter :_enforce_correct_user
+  def update
+    _update_process.call
+  end
+  private
+  def _enforce_correct_user
+    unless current_user.admin? || current_user.contacts.include?(_contact)
+      render json: { message: "This isn't your listing" }, status: 401
+    end
+  end
+  def _update_process
+    _user_inputs >> _apply_changes >> _decide_validity >> (_update_valid_data_process ^ _render_failure)
+  end
+  def _update_valid_data_process
+    _save_changes >> _decide_primality >> (_make_primary ^ Arrows::ID) >> _render_success 
+  end
+  def _user_inputs
+    Arrows.lift _contact
+  end
+  def _apply_changes
+    Arrows.lift -> (contact) { contact.tap { |p| p.assign_attributes _contact_params } }
+  end
+  def _decide_validity
+    Arrows.lift -> (contact) { contact.valid? ? Arrows.good(contact) : Arrows.evil(contact) }
+  end
+  def _decide_primality
+    Arrows.lift -> (contact) { _contact_params[:status] == "primary" ? Arrows.good(contact) : Arrows.evil(contact) }
+  end
+  def _render_success
+    Arrows.lift -> (contact) { render json: { contact: contact.to_ember_hash } }
+  end
+  def _save_changes
+    Arrows.lift -> (contact) { contact.tap(&:save!) }
+  end
+  def _make_primary
+    Arrows.lift -> (contact) { contact.tap &:make_primary! }
+  end
+  def _render_failure
+    Arrows.lift -> (contact) { render json: contact.errors.to_h, status: :expectation_failed }
+  end
+  def _contact
+    @contact ||= Apiv1::UserContact.find params[:id]
+  end
+  def _contact_params
+    @contact_params ||= params.require(:contact).permit(:name, :phone, :email, :address, :status)
+  end
+end
+```
 ## Installation
 
 Add this line to your application's Gemfile:

data/lib/arrows.rb

@@ -1,35 +1,27 @@
 require "arrows/version"
 
 module Arrows
-  class Either
-    attr_accessor :payload
-    def initialize(good_or_evil, payload)
-      @good = !!good_or_evil
-      @payload = payload
-    end
-    def good?
-      @good
-    end
-  end
+  require 'arrows/either'
+  require 'arrows/proc'
   class << self
     def fork(f,g)
       Arrows::Proc.new do |either|
-        either.good? ? f[*either.payload] : g[*either.payload]
+        either.good? ? f[either.payload] : g[either.payload]
       end
     end
     def concurrent(f,g)
-      Arrows::Proc.new do |*args| 
-        [f[*args.first], g[*args.last]]
+      Arrows::Proc.new do |args| 
+        [f[args.first], g[args.last]]
       end
     end
     def fanout(f,g)
-      Arrows::Proc.new { |*args| [f[*args], g[*args]] }
+      Arrows::Proc.new { |args| [f[args], g[args]] }
     end
     def compose(f,g)
-      Arrows::Proc.new { |*args| g[*f[*args]] }
+      Arrows::Proc.new { |args| g[f[args]] }
     end
     def fmap(xs, f)
-      Arrows::Proc.new { |*args| xs[*args].map { |*x| f[*x] }  }
+      Arrows::Proc.new { |args| xs[args].map { |x| f[x] }  }
     end
     def good(x)
       return x if x.respond_to?(:good?) && x.respond_to?(:payload)
@@ -42,45 +34,19 @@ module Arrows
     def lift(x)
       return x if arrow_like? x
       return wrap_proc x if proc_like? x
-      Arrows::Proc.new { |*args| x }
+      Arrows::Proc.new { |args| x }
     end
     def arrow_like?(x)
-       proc_like?(x) && x.arity == -1
+       proc_like?(x) && x.arity == 1 && x.respond_to?(:>=) && x.respond_to?(:>>)
     end
     def proc_like?(x)
       x.respond_to?(:call) && x.respond_to?(:arity)
     end
     def wrap_proc(f)
-      Arrows::Proc.new do |*args|
-        f[*args]
+      Arrows::Proc.new do |args|
+        f[args]
       end
     end
   end
-  class Proc < ::Proc
-    # applicative fmap
-    def >=(f)
-      Arrows.fmap self, Arrows.lift(f)
-    end
-
-    # standard composition
-    def >>(f)
-      Arrows.compose self, Arrows.lift(f)
-    end
-
-    # fanout composition
-    def /(f)
-      Arrows.fanout self, Arrows.lift(f)
-    end
-
-    # concurrent composition
-    def %(f)
-      Arrows.concurrent self, Arrows.lift(f)
-    end
-
-    # fork composition
-    def ^(f)
-      Arrows.fork self, f
-    end
-  end
   ID = lift -> (x) { x }
 end

data/lib/arrows/either.rb

@@ -0,0 +1,10 @@
+class Arrows::Either
+  attr_accessor :payload
+  def initialize(good_or_evil, payload)
+    @good = !!good_or_evil
+    @payload = payload
+  end
+  def good?
+    @good
+  end
+end

data/lib/arrows/proc.rb

@@ -0,0 +1,26 @@
+class Arrows::Proc < Proc
+  # applicative fmap
+  def >=(f)
+    Arrows.fmap self, Arrows.lift(f)
+  end
+
+  # standard composition
+  def >>(f)
+    Arrows.compose self, Arrows.lift(f)
+  end
+
+  # fanout composition
+  def /(f)
+    Arrows.fanout self, Arrows.lift(f)
+  end
+
+  # concurrent composition
+  def %(f)
+    Arrows.concurrent self, Arrows.lift(f)
+  end
+
+  # fork composition
+  def ^(f)
+    Arrows.fork self, f
+  end
+end

data/lib/arrows/version.rb

@@ -1,3 +1,3 @@
 module Arrows
-  VERSION = "0.0.5"
+  VERSION = "0.0.6"
 end

data/spec/arrows/proc_spec.rb

@@ -42,7 +42,7 @@ RSpec.describe Arrows::Proc do
     end 
     context 'arity' do
       let(:par) { times2 % plus3 }
-      subject { par.call 1,2 }
+      subject { par.call [1,2] }
       specify { should eq [2, 5] }
     end
     context 'result' do

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: arrows
 version: !ruby/object:Gem::Version
-  version: 0.0.5
+  version: 0.0.6
 platform: ruby
 authors:
 - Thomas Chen
@@ -81,6 +81,8 @@ files:
 - Rakefile
 - arrows.gemspec
 - lib/arrows.rb
+- lib/arrows/either.rb
+- lib/arrows/proc.rb
 - lib/arrows/version.rb
 - spec/arrows/proc_spec.rb
 - spec/spec_helper.rb