Permalink
Browse files

Drop more now-unneeded Eq constraints.

  • Loading branch information...
1 parent 69049f3 commit 7630317949ca04685d387f1667578c1f71d0e75b @bos bos committed Apr 19, 2011
Showing with 8 additions and 8 deletions.
  1. +4 −4 src/Network/Riak/JSON/Resolvable.hs
  2. +4 −4 src/Network/Riak/Value/Resolvable.hs
@@ -101,7 +101,7 @@ modify_ = R.modify_ J.get J.put
-- If this function gives up due to apparently being stuck in a
-- conflict resolution loop, it will throw a 'ResolutionFailure'
-- exception.
-put :: (Eq c, FromJSON c, ToJSON c, Resolvable c) =>
+put :: (FromJSON c, ToJSON c, Resolvable c) =>
Connection -> Bucket -> Key -> Maybe VClock -> c -> W -> DW
-> IO (c, VClock)
put = R.put J.put
@@ -119,7 +119,7 @@ put = R.put J.put
-- If this function gives up due to apparently being stuck in a
-- conflict resolution loop, it will throw a 'ResolutionFailure'
-- exception.
-put_ :: (Eq c, FromJSON c, ToJSON c, Resolvable c) =>
+put_ :: (FromJSON c, ToJSON c, Resolvable c) =>
Connection -> Bucket -> Key -> Maybe VClock -> c -> W -> DW
-> IO ()
put_ = R.put_ J.put
@@ -139,7 +139,7 @@ put_ = R.put_ J.put
--
-- If this function gives up due to apparently being stuck in a loop,
-- it will throw a 'ResolutionFailure' exception.
-putMany :: (Eq c, FromJSON c, ToJSON c, Resolvable c) =>
+putMany :: (FromJSON c, ToJSON c, Resolvable c) =>
Connection -> Bucket -> [(Key, Maybe VClock, c)] -> W -> DW
-> IO [(c, VClock)]
putMany = R.putMany J.putMany
@@ -156,7 +156,7 @@ putMany = R.putMany J.putMany
--
-- If this function gives up due to apparently being stuck in a loop,
-- it will throw a 'ResolutionFailure' exception.
-putMany_ :: (Eq c, FromJSON c, ToJSON c, Resolvable c) =>
+putMany_ :: (FromJSON c, ToJSON c, Resolvable c) =>
Connection -> Bucket -> [(Key, Maybe VClock, c)] -> W -> DW
-> IO ()
putMany_ = R.putMany_ J.putMany
@@ -103,7 +103,7 @@ modify_ = R.modify_ V.get V.put
-- If this function gives up due to apparently being stuck in a
-- conflict resolution loop, it will throw a 'ResolutionFailure'
-- exception.
-put :: (Eq a, Resolvable a, V.IsContent a) =>
+put :: (Resolvable a, V.IsContent a) =>
Connection -> Bucket -> Key -> Maybe VClock -> a -> W -> DW
-> IO (a, VClock)
put = R.put V.put
@@ -121,7 +121,7 @@ put = R.put V.put
-- If this function gives up due to apparently being stuck in a
-- conflict resolution loop, it will throw a 'ResolutionFailure'
-- exception.
-put_ :: (Eq a, Resolvable a, V.IsContent a) =>
+put_ :: (Resolvable a, V.IsContent a) =>
Connection -> Bucket -> Key -> Maybe VClock -> a -> W -> DW
-> IO ()
put_ = R.put_ V.put
@@ -141,7 +141,7 @@ put_ = R.put_ V.put
--
-- If this function gives up due to apparently being stuck in a loop,
-- it will throw a 'ResolutionFailure' exception.
-putMany :: (Eq a, Resolvable a, V.IsContent a) =>
+putMany :: (Resolvable a, V.IsContent a) =>
Connection -> Bucket -> [(Key, Maybe VClock, a)] -> W -> DW
-> IO [(a, VClock)]
putMany = R.putMany V.putMany
@@ -158,7 +158,7 @@ putMany = R.putMany V.putMany
--
-- If this function gives up due to apparently being stuck in a loop,
-- it will throw a 'ResolutionFailure' exception.
-putMany_ :: (Eq a, Resolvable a, V.IsContent a) =>
+putMany_ :: (Resolvable a, V.IsContent a) =>
Connection -> Bucket -> [(Key, Maybe VClock, a)] -> W -> DW -> IO ()
putMany_ = R.putMany_ V.putMany
{-# INLINE putMany_ #-}

0 comments on commit 7630317

Please sign in to comment.