Handling errors in describe statement

VyacheslavHashov · VyacheslavHashov · commit 384900d14e07 · 2017-02-09T15:54:12.000+03:00
diff --git a/src/Database/PostgreSQL/Driver/Query.hs b/src/Database/PostgreSQL/Driver/Query.hs
@@ -118,6 +118,8 @@ describeStatement conn stmt = do
             -> Right (params, V.empty)
         [ParameterDescription params, RowDescription fields]
             -> Right (params, fields)
-        xs  -> maybe (error "Impossible happened") (Left . PostgresError )
-               $ findFirstError xs
+        xs  -> Left . maybe
+             (DecodeError "Unexpected response on describe query")
+             PostgresError
+            $ findFirstError xs
 
