Merge pull request #37 from Thimoteus/compiler/0.12

updates for compiler version 0.12

Author: thomashoneyman

bower.json

@@ -23,12 +23,12 @@
     "tests"
   ],
   "dependencies": {
-    "purescript-const": "^3.0.0",
-    "purescript-distributive": "^3.0.0",
-    "purescript-profunctor": "^3.0.0"
+    "purescript-const": "^4.0.0",
+    "purescript-distributive": "^4.0.0",
+    "purescript-profunctor": "^4.0.0"
   },
   "devDependencies": {
-    "purescript-psci-support": "^3.0.0",
-    "purescript-console": "^3.0.0"
+    "purescript-psci-support": "^4.0.0",
+    "purescript-console": "^4.1.0"
   }
 }

package.json

@@ -1,6 +1,6 @@
 {
   "name": "purescript-lens",
-  "version": "3.0.0",
+  "version": "4.0.0",
   "description": "PureScript implementation of Lens",
   "license": "MIT",
   "homepage": "https://github.com/joneshf/purescript-lens",
@@ -23,9 +23,9 @@
     "test": "pulp test"
   },
   "devDependencies": {
-    "pulp": "^11.0.0",
-    "purescript": "^0.11.1",
-    "purescript-psa": "^0.5.0",
-    "rimraf": "^2.6.1"
+    "pulp": "^12.3.0",
+    "purescript": "^0.12.0",
+    "purescript-psa": "^0.7.2",
+    "rimraf": "^2.6.2"
   }
 }

src/Optic/Setter.purs

@@ -21,7 +21,7 @@ module Optic.Setter
   import Data.Identity (Identity(..))
   import Data.Maybe (Maybe(..))
   import Data.Newtype (unwrap)
-  import Data.Profunctor (lmap, rmap, class Profunctor)
+  import Data.Profunctor (lcmap, rmap, class Profunctor)
 
   import Optic.Internal.Setter (taintedDot, untaintedDot, class Settable)
   import Optic.Types (ASetter(), ASetter'(), Optical(), Setter(), Setting())
@@ -44,7 +44,7 @@ module Optic.Setter
   infixr 4 setJust as ?~
 
   argument :: forall p r a b. Profunctor p => Setter (p b r) (p a r) a b
-  argument = sets lmap
+  argument = sets lcmap
 
   contramapped :: forall f a b. Contravariant f => Setter (f a) (f b) b a
   contramapped = sets (>$<)

test/Main.purs

@@ -1,7 +1,7 @@
 module Test.Main where
 
-  import Control.Monad.Eff (Eff)
-  import Control.Monad.Eff.Console (CONSOLE, logShow)
+  import Effect (Effect)
+  import Effect.Console (logShow)
 
   import Optic.Core
 
@@ -43,7 +43,7 @@ module Test.Main where
   succ :: Int -> Int
   succ x = x + 1
 
-  main :: forall r. Eff (console :: CONSOLE | r) Unit
+  main :: Effect Unit
   main = do
     logShow obj                                 -- (Foo 0 true)
     logShow $ _Foo..baz .~ 10 $ obj             -- (Foo 0 10)