fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(admin-tokens): avoid option none

Browse Source
This commit is contained in:
Gregor Kleen 2021-03-30 11:23:14 +02:00
parent 5c56745042
commit af3ec98de5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Admin/Tokens.hs
View File

@ -39,7 +39,9 @@ data BTFImpersonate
data BTFImpersonate' = BTFINone' | BTFISingle' | BTFIRandom' data BTFImpersonate' = BTFINone' | BTFISingle' | BTFIRandom'
deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic, Typeable) deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic, Typeable)
deriving (Universe, Finite, Hashable) deriving (Universe, Finite, Hashable)
nullaryPathPiece ''BTFImpersonate' $ camelToPathPiece' 1 . dropSuffix "'" nullaryPathPiece ''BTFImpersonate' $ let noNone n | n == "none" = "impersonate-" <> n
| otherwise = n
in noNone . camelToPathPiece' 1 . dropSuffix "'"
embedRenderMessage ''UniWorX ''BTFImpersonate' $ ("BearerTokenImpersonate" <>) . dropPrefix "BTFI" . dropSuffix "'" embedRenderMessage ''UniWorX ''BTFImpersonate' $ ("BearerTokenImpersonate" <>) . dropPrefix "BTFI" . dropSuffix "'"
data BearerTokenForm = BearerTokenForm data BearerTokenForm = BearerTokenForm