diff --git a/cassandra-cql.cabal b/cassandra-cql.cabal
--- a/cassandra-cql.cabal
+++ b/cassandra-cql.cabal
@@ -1,5 +1,5 @@
 name:                cassandra-cql
-version:             0.2.0.2
+version:             0.2.0.3
 synopsis:            Haskell client for Cassandra's CQL protocol
 description:         
   Haskell client for Cassandra's CQL protocol
diff --git a/tests/example.hs b/tests/example.hs
--- a/tests/example.hs
+++ b/tests/example.hs
@@ -28,8 +28,8 @@
 
 ignoreDropFailure :: Cas () -> Cas ()
 ignoreDropFailure code = code `catch` \exc -> case exc of
-    ConfigError _ -> return ()  -- Ignore the error if the table doesn't exist
-    _             -> throw exc
+    ConfigError _ _ -> return ()  -- Ignore the error if the table doesn't exist
+    _               -> throw exc
 
 main = do
     {-
diff --git a/tests/test-decimal.hs b/tests/test-decimal.hs
--- a/tests/test-decimal.hs
+++ b/tests/test-decimal.hs
@@ -25,8 +25,8 @@
 
 ignoreDropFailure :: Cas () -> Cas ()
 ignoreDropFailure code = code `catch` \exc -> case exc of
-    ConfigError _ -> return ()  -- Ignore the error if the table doesn't exist
-    _             -> throw exc
+    ConfigError _ _ -> return ()  -- Ignore the error if the table doesn't exist
+    _               -> throw exc
 
 main = do
     pool <- newPool [("localhost", "9042")] "test" -- servers, keyspace
diff --git a/tests/test-double.hs b/tests/test-double.hs
--- a/tests/test-double.hs
+++ b/tests/test-double.hs
@@ -28,8 +28,8 @@
 
 ignoreDropFailure :: Cas () -> Cas ()
 ignoreDropFailure code = code `catch` \exc -> case exc of
-    ConfigError _ -> return ()  -- Ignore the error if the table doesn't exist
-    _             -> throw exc
+    ConfigError _ _ -> return ()  -- Ignore the error if the table doesn't exist
+    _               -> throw exc
 
 main = do
     pool <- newPool [("localhost", "9042")] "test" -- servers, keyspace
diff --git a/tests/test-float.hs b/tests/test-float.hs
--- a/tests/test-float.hs
+++ b/tests/test-float.hs
@@ -28,8 +28,8 @@
 
 ignoreDropFailure :: Cas () -> Cas ()
 ignoreDropFailure code = code `catch` \exc -> case exc of
-    ConfigError _ -> return ()  -- Ignore the error if the table doesn't exist
-    _             -> throw exc
+    ConfigError _ _ -> return ()  -- Ignore the error if the table doesn't exist
+    _               -> throw exc
 
 main = do
     pool <- newPool [("localhost", "9042")] "test" -- servers, keyspace
diff --git a/tests/test-inet.hs b/tests/test-inet.hs
--- a/tests/test-inet.hs
+++ b/tests/test-inet.hs
@@ -27,8 +27,8 @@
 
 ignoreDropFailure :: Cas () -> Cas ()
 ignoreDropFailure code = code `catch` \exc -> case exc of
-    ConfigError _ -> return ()  -- Ignore the error if the table doesn't exist
-    _             -> throw exc
+    ConfigError _ _ -> return ()  -- Ignore the error if the table doesn't exist
+    _               -> throw exc
 
 main = do
     pool <- newPool [("localhost", "9042")] "test" -- servers, keyspace
diff --git a/tests/test-list.hs b/tests/test-list.hs
--- a/tests/test-list.hs
+++ b/tests/test-list.hs
@@ -38,8 +38,8 @@
 
 ignoreDropFailure :: Cas () -> Cas ()
 ignoreDropFailure code = code `catch` \exc -> case exc of
-    ConfigError _ -> return ()  -- Ignore the error if the table doesn't exist
-    _             -> throw exc
+    ConfigError _ _ -> return ()  -- Ignore the error if the table doesn't exist
+    _               -> throw exc
 
 main = do
     pool <- newPool [("localhost", "9042")] "test" -- servers, keyspace
diff --git a/tests/test-map.hs b/tests/test-map.hs
--- a/tests/test-map.hs
+++ b/tests/test-map.hs
@@ -28,8 +28,8 @@
 
 ignoreDropFailure :: Cas () -> Cas ()
 ignoreDropFailure code = code `catch` \exc -> case exc of
-    ConfigError _ -> return ()  -- Ignore the error if the table doesn't exist
-    _             -> throw exc
+    ConfigError _ _ -> return ()  -- Ignore the error if the table doesn't exist
+    _               -> throw exc
 
 main = do
     pool <- createCassandraPool [("localhost", "9042")] "test" -- servers, keyspace
diff --git a/tests/test-set.hs b/tests/test-set.hs
--- a/tests/test-set.hs
+++ b/tests/test-set.hs
@@ -28,8 +28,8 @@
 
 ignoreDropFailure :: Cas () -> Cas ()
 ignoreDropFailure code = code `catch` \exc -> case exc of
-    ConfigError _ -> return ()  -- Ignore the error if the table doesn't exist
-    _             -> throw exc
+    ConfigError _ _ -> return ()  -- Ignore the error if the table doesn't exist
+    _               -> throw exc
 
 main = do
     pool <- newPool [("localhost", "9042")] "test" -- servers, keyspace
diff --git a/tests/test-timestamp.hs b/tests/test-timestamp.hs
--- a/tests/test-timestamp.hs
+++ b/tests/test-timestamp.hs
@@ -25,8 +25,8 @@
 
 ignoreDropFailure :: Cas () -> Cas ()
 ignoreDropFailure code = code `catch` \exc -> case exc of
-    ConfigError _ -> return ()  -- Ignore the error if the table doesn't exist
-    _             -> throw exc
+    ConfigError _ _ -> return ()  -- Ignore the error if the table doesn't exist
+    _               -> throw exc
 
 main = do
     pool <- newPool [("localhost", "9042")] "test" -- servers, keyspace
diff --git a/tests/test-timeuuid.hs b/tests/test-timeuuid.hs
--- a/tests/test-timeuuid.hs
+++ b/tests/test-timeuuid.hs
@@ -31,8 +31,8 @@
 
 ignoreDropFailure :: Cas () -> Cas ()
 ignoreDropFailure code = code `catch` \exc -> case exc of
-    ConfigError _ -> return ()  -- Ignore the error if the table doesn't exist
-    _             -> throw exc
+    ConfigError _ _ -> return ()  -- Ignore the error if the table doesn't exist
+    _               -> throw exc
 
 main = do
     pool <- newPool [("localhost", "9042")] "test" -- servers, keyspace
diff --git a/tests/test-varint.hs b/tests/test-varint.hs
--- a/tests/test-varint.hs
+++ b/tests/test-varint.hs
@@ -25,8 +25,8 @@
 
 ignoreDropFailure :: Cas () -> Cas ()
 ignoreDropFailure code = code `catch` \exc -> case exc of
-    ConfigError _ -> return ()  -- Ignore the error if the table doesn't exist
-    _             -> throw exc
+    ConfigError _ _ -> return ()  -- Ignore the error if the table doesn't exist
+    _               -> throw exc
 
 main = do
     pool <- newPool [("localhost", "9042")] "test" -- servers, keyspace