From af3ec98de512f72220d363b9dd0c06532ae1a960 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 30 Mar 2021 11:23:14 +0200 Subject: [PATCH] fix(admin-tokens): avoid option none --- src/Handler/Admin/Tokens.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Handler/Admin/Tokens.hs b/src/Handler/Admin/Tokens.hs index 698b15345..1805b7489 100644 --- a/src/Handler/Admin/Tokens.hs +++ b/src/Handler/Admin/Tokens.hs @@ -39,7 +39,9 @@ data BTFImpersonate data BTFImpersonate' = BTFINone' | BTFISingle' | BTFIRandom' deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic, Typeable) 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 "'" data BearerTokenForm = BearerTokenForm