Merge pull request #13 from purescript-contrib/update-deps

Update dependencies

Author: joneshf

bower.json

@@ -24,10 +24,10 @@
     "tests"
   ],
   "dependencies": {
-    "purescript-profunctor": "joneshf/purescript-profunctors#master",
-    "purescript-distributive": "joneshf/purescript-distributive#~0.2.0",
-    "purescript-const": "~0.1.1",
-    "purescript-identity": "~0.1.0",
+    "purescript-profunctor": "~0.0.2",
+    "purescript-distributive": "~0.3.0",
+    "purescript-const": "~0.2.0",
+    "purescript-identity": "~0.2.0",
     "purescript-either": "~0.1.4",
     "purescript-maybe": "~0.2.1"
   }

src/Optic/Internal/Prism.purs

@@ -21,10 +21,10 @@ module Optic.Internal.Prism where
     -- I have no clue what's going on here.
     -- This is basically a straight lift from:
     -- https://github.com/ekmett/lens/blob/master/src/Control/Lens/Internal/Prism.hs#L56-L68
-    left' (Market b2t s2Eta) = Market (b2t >>> Left) \thing -> case thing of
+    left (Market b2t s2Eta) = Market (b2t >>> Left) \thing -> case thing of
       Left s -> either (Left >>> Left) Right (s2Eta s)
       Right c -> Left $ Right c
 
-    right' (Market b2t s2Eta) = Market (b2t >>> Right) \thing -> case thing of
+    right (Market b2t s2Eta) = Market (b2t >>> Right) \thing -> case thing of
       Left c -> Left $ Left c
       Right s -> either (Right >>> Left) Right (s2Eta s)

src/Optic/Prism.purs

@@ -17,7 +17,7 @@ module Optic.Prism
   import Data.Identity (runIdentity, Identity(..))
   import Data.Maybe (maybe, Maybe(..))
   import Data.Profunctor (dimap)
-  import Data.Profunctor.Choice (right', Choice)
+  import Data.Profunctor.Choice (right, Choice)
 
   clonePrism :: forall f p s t a b. (Applicative f, Choice p) => APrism  s t a b -> p a (f b) -> p s (f t)
   clonePrism stab = withPrism stab prism
@@ -42,7 +42,7 @@ module Optic.Prism
   only x = nearly x ((==) x)
 
   prism :: forall f p s t a b. (Applicative f, Choice p) => (b -> t) -> (s -> Either t a) -> p a (f b) -> p s (f t)
-  prism b2t s2Eta pafb = dimap s2Eta (either pure ((<$>) b2t)) (right' pafb)
+  prism b2t s2Eta pafb = dimap s2Eta (either pure ((<$>) b2t)) (right pafb)
 
   prism' :: forall s a b. (b -> s) -> (s -> Maybe a) -> Prism s s a b
   prism' b2s s2Ma = prism b2s (\s -> maybe (Left s) Right $ s2Ma s)