Removes error case from Payload type. Now we don't build a payload when the parsing fails.

This commit is contained in:
Diogo Biazus
2016-11-27 23:55:02 -05:00
parent 654ac6e62e
commit 090a62a2c8
3 changed files with 18 additions and 34 deletions
+1 -3
View File
@@ -110,9 +110,7 @@ unUniformObjects (UniformObjects objs) = objs
-- | When Hasql supports the COPY command then we can
-- have a special payload just for CSV, but until
-- then CSV is converted to a JSON array.
data Payload = PayloadJSON UniformObjects
| PayloadParseError ByteString
deriving (Show, Eq)
data Payload = PayloadJSON UniformObjects deriving (Show, Eq)
data Proxy = Proxy {
proxyScheme :: Text