jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use type alias for clarity

Browse Source
This commit is contained in:
Joe Nelson
2015-10-12 17:10:57 -07:00
parent e37b2d8c59
commit 3733a84a38
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PostgREST/App.hs
+1 -1
View File
@@ -57,7 +57,7 @@ import PostgREST.Types
import Prelude 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 = app dbstructure conf authenticator reqBody dbrole req =
case (path, verb) of case (path, verb) of
src/PostgREST/Middleware.hs
+1 -1
View File
@@ -33,7 +33,7 @@ import PostgREST.Config (AppConfig (..), corsPolicy)
import Prelude import Prelude
authenticated :: forall s. AppConfig -> Text -> authenticated :: forall s. AppConfig -> DbRole ->
(DbRole -> Request -> H.Tx P.Postgres s Response) -> (DbRole -> Request -> H.Tx P.Postgres s Response) ->
Request -> H.Tx P.Postgres s Response Request -> H.Tx P.Postgres s Response
authenticated conf authenticator app req = do authenticated conf authenticator app req = do