Cleanup replacement mistakes

diff --git a/Symantic/HTTP/Client/Connection.hs b/Symantic/HTTP/Client/Connection.hs
index 6ffd2653be5b8de3706ee315f2c7d905878773b0..76fb50d083d6cd332fd0979a8d2870263379ee5a 100644 (file)
--- a/Symantic/HTTP/Client/Connection.hs
+++ b/Symantic/HTTP/Client/Connection.hs
@@ -120,7 +120,7 @@ data ClientError
  |   ClientError_InvalidContentTypeHeader ClientResponse
  -}
      -- | There was a connection error, and no response was received
- |   ClientError_ClientConnectionectionError Client.HttpException
+ |   ClientError_ClientConnectionError Client.HttpException
      -- | 'ClientConnection' is 'empty'
  |   ClientError_EmptyClient
  deriving (Eq, Show{-, Generic, Typeable-})
@@ -224,7 +224,7 @@ doClientRequest clientReq = do
                                        STM.writeTVar cj newCookieJar
                                        pure newRequest
        lrRes <-
-               liftIO $ catchClientConnectionectionError $
+               liftIO $ catchClientConnectionError $
                Client.httpLbs req clientEnv_manager
        case lrRes of
                Left err -> MC.throw err
@@ -239,10 +239,10 @@ doClientRequest clientReq = do
                                MC.throw $ ClientError_FailureResponse clientRes
                        return clientRes
 
-catchClientConnectionectionError :: IO a -> IO (Either ClientError a)
-catchClientConnectionectionError action =
+catchClientConnectionError :: IO a -> IO (Either ClientError a)
+catchClientConnectionError action =
        Exn.catch (Right <$> action) $ \err ->
-               return $ Left $ ClientError_ClientConnectionectionError err
+               return $ Left $ ClientError_ClientConnectionError err
 
 -- ** Type 'ClientResponseStreaming'
 newtype ClientResponseStreaming