Fix operators (not commutative).

Author: joneshf

package.json

@@ -21,7 +21,7 @@
     "gulp-bump": "^0.1.11",
     "gulp-filter": "^1.0.2",
     "gulp-git": "^0.5.5",
-    "gulp-purescript": "^0.0.9",
+    "gulp-purescript": "^0.1.2",
     "gulp-run": "~1.6.4",
     "gulp-tag-version": "^1.2.1",
     "run-sequence": "^0.3.6"

src/Optic/Setter.purs

@@ -59,28 +59,28 @@ module Optic.Setter
   (.~) = set
 
   (+~) :: forall s t a. (Num a) => ASetter s t a a -> a -> s -> t
-  (+~) staa a = over staa ((+) a)
+  (+~) staa a = over staa (flip (+) a)
 
   (-~) :: forall s t a. (Num a) => ASetter s t a a -> a -> s -> t
-  (-~) staa a = over staa ((-) a)
+  (-~) staa a = over staa (flip (-) a)
 
   (*~) :: forall s t a. (Num a) => ASetter s t a a -> a -> s -> t
-  (*~) staa a = over staa ((*) a)
+  (*~) staa a = over staa (flip (*) a)
 
   (//~) :: forall s t a. (Num a) => ASetter s t a a -> a -> s -> t
-  (//~) staa a = over staa ((/) a)
+  (//~) staa a = over staa (flip (/) a)
 
   (||~) :: forall s t a. (BoolLike a) => ASetter s t a a -> a -> s -> t
-  (||~) staa a = over staa ((||) a)
+  (||~) staa a = over staa (flip (||) a)
 
   (&&~) :: forall s t a. (BoolLike a) => ASetter s t a a -> a -> s -> t
-  (&&~) staa a = over staa ((&&) a)
+  (&&~) staa a = over staa (flip (&&) a)
 
   (<>~) :: forall s t a. (Semigroup a) => ASetter s t a a -> a -> s -> t
-  (<>~) staa a = over staa ((<>) a)
+  (<>~) staa a = over staa (flip (<>) a)
 
   (++~) :: forall s t a. (Semigroup a) => ASetter s t a a -> a -> s -> t
-  (++~) staa a = over staa ((++) a)
+  (++~) staa a = over staa (flip (++) a)
 
   (?~) :: forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
   (?~) stab a = set stab (Just a)