Introduce the type ApiRequestError and make userApiRequest return an Either ApiRequestError ApiRequest

This commit is contained in:
Diogo Biazus
2016-11-27 23:54:23 -05:00
parent ae40641963
commit 47c4fbc8ef
3 changed files with 98 additions and 87 deletions
+1 -2
View File
@@ -2,7 +2,6 @@ module PostgREST.Types where
import Protolude
import qualified GHC.Show
import Data.Aeson
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as BL
import Data.Tree
import qualified Data.Vector as V
@@ -112,7 +111,7 @@ unUniformObjects (UniformObjects objs) = objs
-- have a special payload just for CSV, but until
-- then CSV is converted to a JSON array.
data Payload = PayloadJSON UniformObjects
| PayloadParseError BS.ByteString
| PayloadParseError ByteString
deriving (Show, Eq)
data Proxy = Proxy {