diff --git a/hw-kafka-client.cabal b/hw-kafka-client.cabal
--- a/hw-kafka-client.cabal
+++ b/hw-kafka-client.cabal
@@ -1,5 +1,5 @@
 name:                hw-kafka-client
-version:             2.3.3
+version:             2.4.0
 homepage:            https://github.com/haskell-works/hw-kafka-client
 bug-reports:         https://github.com/haskell-works/hw-kafka-client/issues
 license:             MIT
diff --git a/src/Kafka/Consumer.hs b/src/Kafka/Consumer.hs
--- a/src/Kafka/Consumer.hs
+++ b/src/Kafka/Consumer.hs
@@ -90,7 +90,7 @@
             -> Timeout -- ^ the timeout, in milliseconds
             -> m (Either KafkaError (ConsumerRecord (Maybe BS.ByteString) (Maybe BS.ByteString))) -- ^ Left on error or timeout, right for success
 pollMessage c@(KafkaConsumer _ (KafkaConf _ qr _)) (Timeout ms) = liftIO $ do
-    pollConsumerEvents c Nothing
+--    pollConsumerEvents c Nothing
     mbq <- readIORef qr
     case mbq of
       Nothing -> return . Left $ KafkaBadSpecification "Messages queue is not configured, internal error, fatal."
diff --git a/src/Kafka/Types.hs b/src/Kafka/Types.hs
--- a/src/Kafka/Types.hs
+++ b/src/Kafka/Types.hs
@@ -67,7 +67,7 @@
   | KafkaResponseError RdKafkaRespErrT
   | KafkaInvalidConfigurationValue String
   | KafkaUnknownConfigurationKey String
-  | KakfaBadConfiguration
+  | KafkaBadConfiguration
     deriving (Eq, Show, Typeable)
 
 instance Exception KafkaError