From b4ed0850abccf641af7aa25bff3a5dc2db74cd07 Mon Sep 17 00:00:00 2001
From: Gordon Fontenot <gmoney@gitpushgitpaid.com>
Date: Fri, 15 Jan 2016 15:45:49 -0700
Subject: [PATCH] Add leftwise flatMap operator for Decoded

This version of the operator was left out for some reason. This wasn't
intentional, so we're just correcting the oversight.
---
 Argo/Types/Decoded/Monad.swift | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/Argo/Types/Decoded/Monad.swift b/Argo/Types/Decoded/Monad.swift
index ecbe84f..6a4c3af 100644
--- a/Argo/Types/Decoded/Monad.swift
+++ b/Argo/Types/Decoded/Monad.swift
@@ -13,6 +13,21 @@ public func >>- <T, U>(x: Decoded<T>, @noescape f: T -> Decoded<U>) -> Decoded<U
   return x.flatMap(f)
 }
 
+/**
+  flatMap a function over a `Decoded` value (left associative)
+
+  - If the value is a failing case (`.TypeMismatch`, `.MissingKey`), the function will not be evaluated and this will return the value
+  - If the value is `.Success`, the function will be applied to the unwrapped value
+
+  - parameter x: A value of type `Decoded<T>`
+  - parameter f: A transformation function from type `T` to type `Decoded<U>`
+
+  - returns: A value of type `Decoded<U>`
+*/
+public func -<< <T, U>(@noescape f: T -> Decoded<U>, x: Decoded<T>) -> Decoded<U> {
+  return x.flatMap(f)
+}
+
 public extension Decoded {
   func flatMap<U>(@noescape f: T -> Decoded<U>) -> Decoded<U> {
     switch self {