Source

riak-haskell-client / src / Network / Riak / Connection / Internal.hs

Diff from to

src/Network/Riak/Connection/Internal.hs

 import System.Random (randomIO)
 import Text.ProtocolBuffers (messageGetM, messagePutM, messageSize)
 import Text.ProtocolBuffers.Get (Get, Result(..), getWord32be, runGet)
+import qualified Control.Exception as E
 import qualified Data.ByteString as B
 import qualified Data.ByteString.Lazy.Char8 as L
 import qualified Network.Riak.Types.Internal as T
 
 onIOException :: String -> IO a -> IO a
 onIOException func act =
-    act `catch` \(e::IOException) -> do
+    act `E.catch` \(e::IOException) -> do
       let s = show e
       debug func $ "caught IO exception: " ++ s
       moduleError func s