cassandra-cql 0.2.0.2 → 0.2.0.3

raw patch · 12 files changed

+23/−23 lines, 12 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

cassandra-cql.cabal +1/−1
tests/example.hs +2/−2
tests/test-decimal.hs +2/−2
tests/test-double.hs +2/−2
tests/test-float.hs +2/−2
tests/test-inet.hs +2/−2
tests/test-list.hs +2/−2
tests/test-map.hs +2/−2
tests/test-set.hs +2/−2
tests/test-timestamp.hs +2/−2
tests/test-timeuuid.hs +2/−2
tests/test-varint.hs +2/−2

cassandra-cql.cabal view

@@ -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

tests/example.hs view

@@ -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     {-

tests/test-decimal.hs view

@@ -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

tests/test-double.hs view

@@ -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

tests/test-float.hs view

@@ -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

tests/test-inet.hs view

@@ -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

tests/test-list.hs view

@@ -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

tests/test-map.hs view

@@ -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

tests/test-set.hs view

@@ -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

tests/test-timestamp.hs view

@@ -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

tests/test-timeuuid.hs view

@@ -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

tests/test-varint.hs view

@@ -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