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
@@ -15,7 +15,7 @@ import           Network.Wai.Middleware.Gzip   (def, gzip)
 import           Network.Wai.Middleware.Static (only, staticPolicy)

 import           PostgREST.ApiRequest          (ApiRequest(..), ContentType(..),
-                                                ctToHeader)
+                                                toHeader)
 import           PostgREST.Auth                (claimsToSQL, JWTAttempt(..))
 import           PostgREST.Config              (AppConfig (..), corsPolicy)
 import           PostgREST.Error               (errResponse)
@@ -40,7 +40,7 @@ runWithClaims conf eClaims app req =
    anon = String . toS $ configAnonRole conf
    customReqCheck = (\f -> "select " <> toS f <> "();") <$> configReqCheck conf
    unauthed message = responseLBS unauthorized401
-      [ ctToHeader CTApplicationJSON
+      [ toHeader CTApplicationJSON
      , ( "WWW-Authenticate"
        , "Bearer error=\"invalid_token\", " <>
          "error_description=\"" <> message <> "\""