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