-
-
Save pithyless/2216519 to your computer and use it in GitHub Desktop.
| # A chainable Either monad for Ruby | |
| # | |
| # Examples | |
| # | |
| # Either.right('s') >> proc { |s| Either.right(s + '-1') } >> proc { |s| Either.right(s + '-2') } | |
| # #=> #<Either @left=nil, @right="s-1-2"> | |
| # | |
| # Either.right('s') >> proc { |s| Either.left('error!') } >> proc { |s| Either.right(s + '-2') } | |
| # #=> #<Either @left='error!', @right=nil> | |
| # | |
| # Returns either left or right. | |
| class Either | |
| attr_reader :left, :right | |
| private_class_method :new | |
| def initialize(left, right) | |
| @left = left | |
| @right = right | |
| end | |
| def left? | |
| !!left | |
| end | |
| def right? | |
| not left? | |
| end | |
| def >>(callable) | |
| if left? | |
| self | |
| else | |
| callable.call(right).tap do |e| | |
| fail "No quantum leaps allowed! Expected Either; got #{e.inspect}" unless e.is_a?(Either) | |
| end | |
| end | |
| end | |
| # Short-circuit applicative AND | |
| # | |
| # Examples | |
| # | |
| # Either.right(1) & Either.right(2) & Either.right(3) | |
| # #=> #<Either: @left=nil, @right=3> | |
| # | |
| # Either.right(1) & Either.left(2) & Either.right(3) | |
| # #=> #<Either: @left=2, @right=nil> | |
| # | |
| # Returns either the first Left or the last Right | |
| def &(other) | |
| fail "Expected Either; got #{other.inspect}" unless other.is_a?(Either) | |
| if left? | |
| self | |
| else | |
| other | |
| end | |
| end | |
| def self.left(left) | |
| new(left, nil) | |
| end | |
| def self.right(right) | |
| new(nil, right) | |
| end | |
| end |
| def controller | |
| res = ParseParam.call(params) | |
| res = res >> lambda { |res| DoSomeStuff.call(res) } | |
| res = res >> lambda { |res| FinickyThirdParty.call(res) } | |
| res = res >> ... | |
| res.to_xml | |
| end | |
| # If this seems like a good idea, we can add a little bit of sugar: | |
| res = Either.right('ok') | |
| res >>= JustAnotherProc |
@pithyless, sorry I didn't mean to belittle it. I was thinking more of my pipe overloading when I said that.
I think Steve already mentioned it, but definitely checkout avdi's exceptional ruby/confident code.
I guess maybe it could, but I wonder how you'd feel after reading/watching that material.
@markburns, I didn't intend to make it sound belittling ;-)
Overall, I'm just looking for a solution to the problem that is empathetic to the reader of the code. Just finished watching @avdi's talk, and I will try again to see if I can fix most of the warts by just using a more confident approach. I may just end up using some of these ideas in a more sophisticated Null / Maybe object.
Thank you all for the feedback; I'm going to attack this problem again and see if I can't work my way through it without resorting to Monads. :)
Small note of order: you will still be using a monad, maybe just not formally. ;)
In this spirit I just came up with this https://github.com/pzol/deterministic (still work in progress)
@markburns, this is not really meant as an academic exercise. Rather, if I implement this, does it help the future reader focus on what the main business flow is without getting bugged down in tons of error handling.