deleted some commented code
This commit is contained in:
@@ -212,17 +212,3 @@ allprimaryKeys = do
|
||||
)
|
||||
|]
|
||||
return $ map pkFromRow pks
|
||||
|
||||
-- alltablesAcl :: H.Tx P.Postgres s [(Text, Text, Text)]
|
||||
-- alltablesAcl = do
|
||||
-- acl <- H.listEx $ [H.stmt|
|
||||
-- SELECT
|
||||
-- table_schema,
|
||||
-- table_name,
|
||||
-- grantee as role
|
||||
-- FROM information_schema.role_table_grants
|
||||
-- WHERE
|
||||
-- table_schema NOT IN ('pg_catalog', 'information_schema') AND
|
||||
-- privilege_type = 'SELECT'
|
||||
-- |]
|
||||
-- return acl
|
||||
|
||||
Reference in New Issue
Block a user