Skip to content

Commit f205201

Browse files
committed
Rename server lens to server_
1 parent ff87915 commit f205201

File tree

2 files changed

+2
-1
lines changed

2 files changed

+2
-1
lines changed

src/Data/Swagger/Internal/Utils.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -45,6 +45,7 @@ swaggerFieldRules = defaultFieldRules & lensField %~ swaggerFieldNamer
4545
fixName' "enum" = "enum_" -- Control.Lens conflict
4646
fixName' "head" = "head_" -- Prelude conflict
4747
fixName' "not" = "not_" -- Prelude conflict
48+
fixName' "server" = "server_" -- servant-swagger conflict
4849
fixName' n = n
4950

5051
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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -59,7 +59,7 @@ makeFields ''ExternalDocs
5959
makeFields ''Encoding
6060
makeFields ''Example
6161
makeFields ''Discriminator
62-
makeFields ''Link
62+
makeLensesWith swaggerFieldRules ''Link
6363

6464
-- * Prisms
6565
-- ** 'SecuritySchemeType' prisms

0 commit comments

Comments
 (0)