Commits

Bryan O'Sullivan  committed d5c5fc8

Drop more now-unneeded Eq constraints.

  • Participants
  • Parent commits 3734de6
  • Tags 0.4.0.0

Comments (0)

Files changed (2)

File src/Network/Riak/JSON/Resolvable.hs

 -- 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
 -- 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
 --
 -- 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
 --
 -- 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

File src/Network/Riak/Value/Resolvable.hs

 -- 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 
 -- 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 
 --
 -- 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
 --
 -- 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_ #-}