Refactor error type and fix nested error message [fix #791] (#829)

2017-03-12 22:02:13 -07:00
parent 2aabbbae58
commit 206ab163b6
11 changed files with 157 additions and 129 deletions
@@ -20,11 +20,11 @@ import           Protolude hiding              (concat, (&), Proxy, get, interca

 import           Data.Swagger

-import           PostgREST.ApiRequest        (ContentType(..), toMime)
+import           PostgREST.ApiRequest        (ContentType(..))
 import           PostgREST.Config            (prettyVersion)
 import           PostgREST.QueryBuilder      (operators)
 import           PostgREST.Types             (Table(..), Column(..), PgArg(..),
-                                              Proxy(..), ProcDescription(..))
+                                              Proxy(..), ProcDescription(..), toMime)

 makeMimeList :: [ContentType] -> MimeList
 makeMimeList cs = MimeList $ map (fromString . toS . toMime) cs