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

Adds dbrole filter back to root path querying the database

Browse Source
This commit is contained in:
Diogo Biazus
2015-10-16 15:55:56 -04:00
parent 3add3f5b6c
commit 275002e25d
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PostgREST/App.hs
+2 -1
View File
@@ -62,7 +62,8 @@ app dbstructure conf reqBody req =
case (path, verb) of case (path, verb) of
([], _) -> do ([], _) -> do
let body = encode $ filter ((cs schema==).tableSchema) allTabs Identity (dbrole :: Text) <- H.singleEx $ [H.stmt|SELECT current_user|]
let body = encode $ filter (filterTableAcl dbrole) $ filter ((cs schema==).tableSchema) allTabs
return $ responseLBS status200 [jsonH] $ cs body return $ responseLBS status200 [jsonH] $ cs body
([table], "OPTIONS") -> do ([table], "OPTIONS") -> do