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