@@ -93,7 +93,12 @@ unixHttpHandler fp request= do
9393 let mSettings = defaultManagerSettings
9494 { managerRawConnection = return $ openUnixSocket fp}
9595 manager <- newManager mSettings
96− httpLbs request manager
96+ try (httpLbs request manager) >>= \res -> case res of
97+ Right res -> return $ Right res
98+ Left HTTP.FailedConnectionException{} -> return $ Left DockerConnectionError
99+ Left HTTP.FailedConnectionException2{} -> return $ Left DockerConnectionError
100+ Left e -> return $ Left $ GenericDockerError (T.pack $ show e)
101+
97102 where
98103 openUnixSocket filePath _ _ _ = do
99104 s <- S.socket S.AF_UNIX S.Stream S.defaultProtocol