Add Lens operators

typelift · Jul 8, 2015 · 45965bd · 45965bd
1 parent 1e54027
commit 45965bd
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/Operators.swift b/Operators.swift
@@ -60,6 +60,18 @@ infix operator ->> {
 	precedence 110
 }
 
+/// Imap | Maps covariantly over the index of a right-leaning bifunctor.
+infix operator <^^> {
+	associativity left
+	precedence 140
+}
+
+/// Contramap | Contravariantly maps a function over the value encapsulated by a functor.
+infix operator <!> {
+	associativity left
+	precedence 140
+}
+
 /// MARK: Data.Result
 
 /// From | Creates a Result given a function that can possibly fail with an error.