Source

riak-haskell-client / src / Network / Riak / Value.hs

Diff from to

File src/Network/Riak/Value.hs

 getResp :: (IsContent c) => Maybe GetResponse -> IO (Maybe ([c], VClock))
 getResp resp =
   case resp of
-    Just (GetResponse content (Just s)) -> do
+    Just (GetResponse content (Just s) _) -> do
            c <- convert content
            return $ Just (c, VClock s)
     _   -> return Nothing