Bryan O'Sullivan avatar Bryan O'Sullivan committed d5c5fc8

Drop more now-unneeded Eq constraints.

Comments (0)

Files changed (2)

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

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_ #-}
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.