We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent ff87915 commit f205201Copy full SHA for f205201
src/Data/Swagger/Internal/Utils.hs
@@ -45,6 +45,7 @@ swaggerFieldRules = defaultFieldRules & lensField %~ swaggerFieldNamer
45
fixName' "enum" = "enum_" -- Control.Lens conflict
46
fixName' "head" = "head_" -- Prelude conflict
47
fixName' "not" = "not_" -- Prelude conflict
48
+ fixName' "server" = "server_" -- servant-swagger conflict
49
fixName' n = n
50
51
gunfoldEnum :: String -> [a] -> (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c a
src/Data/Swagger/Lens.hs
@@ -59,7 +59,7 @@ makeFields ''ExternalDocs
59
makeFields ''Encoding
60
makeFields ''Example
61
makeFields ''Discriminator
62
-makeFields ''Link
+makeLensesWith swaggerFieldRules ''Link
63
64
-- * Prisms
65
-- ** 'SecuritySchemeType' prisms
0 commit comments