yogsototh/aggreact
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix authorizations

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2019-04-28 10:16:33 +02:00
parent 046d0f1fe5
commit 1c47128b2d
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/Aggreact/Authorization.hs
View file

@ -98,11 +98,20 @@ scopeToStr :: Scope -> Text
scopeToStr (Scope res acc) = res <> case acc of Read -> ":read"; Write -> ":write"
readOnlyScopes :: [Text]
readOnlyScopes = [ "comment:read", "slug:read" ]
readOnlyScopes = [ "comment:read"
, "slug:read" ]
commentGrantedScopes :: [Text]
commentGrantedScopes = [ "comment:read", "slug:read" ]
commentGrantedScopes = [ "comment:read"
, "comment:write"
, "slug:read" ]
allScopes :: [Text]
allScopes = [ "admin", "comment:read", "comment:write", "slug:read", "slug:write" ]
allScopes = [ "admin"
, "comment:read"
, "comment:write"
, "slug:read"
, "slug:write" ]
userScopes' :: AuthorizationStrategy -> Maybe User -> Scopes
userScopes' Anybody Nothing =