Merge branch 'release/v0.8.0'

CHANGELOG.md

@@ -1,3 +1,8 @@
+## v0.8.0 - 2014-11-07
+
+* Retry on connection failure and response timeout in addition to IOException
+    * Note that this may break existing code silently
+
 ## v0.7.1.1 - 2014-09-19
 
 * Relax upper bound for http-client

influxdb.cabal

@@ -1,5 +1,5 @@
 name: influxdb
-version: 0.7.1.1
+version: 0.8.0
 synopsis: Haskell client library for InfluxDB
 description: Haskell client library for InfluxDB
 homepage: https://github.com/maoe/influxdb-haskell
@@ -153,5 +153,5 @@ source-repository head
 
 source-repository this
   type: git
-  tag: v0.7.1.1
+  tag: v0.8.0
   location: https://github.com/maoe/influxdb-haskell.git

src/Database/InfluxDB/Http.hs

@@ -759,11 +759,13 @@ withPool pool request f = do
         const $
 #endif
         Handler $ \e -> case e of
-          HC.InternalIOException _ -> do
-            failover pool
-            return True
+          HC.FailedConnectionException {} -> retry
+          HC.FailedConnectionException2 {} -> retry
+          HC.InternalIOException {} -> retry
+          HC.ResponseTimeout {} -> retry
           _ -> return False
       ]
+    retry = True <$ failover pool
 
 escapeText :: Text -> BS.ByteString
 escapeText = escapeString . T.unpack