Commits

Bryan O'Sullivan committed 2589ad3

Tidyup.

Comments (0)

Files changed (2)

src/Network/Riak/Connection/Internal.hs

 {-# INLINE debugRecv #-}
 #endif
 
-pipe :: (Request req, Show resp) => (Connection -> IO resp) -> Connection -> [req]
-     -> IO [resp]
+pipe :: (Request req, Show resp) =>
+        (Connection -> IO resp) -> Connection -> [req] -> IO [resp]
 pipe receive conn@Connection{..} reqs = do
   ch <- newChan
   let numReqs = length reqs

src/Network/Riak/Value.hs

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