Reduce app function (#733)

Simplify the big app function
2016-11-10 20:42:00 -08:00
parent c3822da2d2
commit 41c1cf6e01
6 changed files with 247 additions and 221 deletions
@@ -20,14 +20,14 @@ import           Protolude hiding              (concat, (&), Proxy, get, interca

 import           Data.Swagger

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

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

 toSwaggerType :: Text -> SwaggerType t
 toSwaggerType "text"      = SwaggerString