From 3733a84a38e7d8866a954a2c3b0369a155400a1d Mon Sep 17 00:00:00 2001 From: Joe Nelson Date: Mon, 12 Oct 2015 17:02:33 -0700 Subject: [PATCH] Use type alias for clarity --- src/PostgREST/App.hs | 2 +- src/PostgREST/Middleware.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/PostgREST/App.hs b/src/PostgREST/App.hs index 916098229..40c86babd 100644 --- a/src/PostgREST/App.hs +++ b/src/PostgREST/App.hs @@ -57,7 +57,7 @@ import PostgREST.Types import Prelude -app :: DbStructure -> AppConfig -> Text -> BL.ByteString -> DbRole -> Request -> H.Tx P.Postgres s Response +app :: DbStructure -> AppConfig -> DbRole -> BL.ByteString -> DbRole -> Request -> H.Tx P.Postgres s Response app dbstructure conf authenticator reqBody dbrole req = case (path, verb) of diff --git a/src/PostgREST/Middleware.hs b/src/PostgREST/Middleware.hs index e841c592c..9dd3a5c48 100644 --- a/src/PostgREST/Middleware.hs +++ b/src/PostgREST/Middleware.hs @@ -33,7 +33,7 @@ import PostgREST.Config (AppConfig (..), corsPolicy) import Prelude -authenticated :: forall s. AppConfig -> Text -> +authenticated :: forall s. AppConfig -> DbRole -> (DbRole -> Request -> H.Tx P.Postgres s Response) -> Request -> H.Tx P.Postgres s Response authenticated conf authenticator app req = do