Change head to head_ for PathItem (conflict with Prelude)
commit0e7c55bd26d73c85f3a74472ecc85c1be7e18fe1
authorNickolay Kudasov <nickolay.kudasov@gmail.com>
dateThu 4 Feb 2016, 00:33 (11 years ago)
parent67f8475
src/Data/Swagger/Internal/Utils.hs+1
@@ -45,6 +45,7 @@ swaggerFieldRules = defaultFieldRules & lensField %~ swaggerFieldNamer
4545 fixName' "minimum" = "minimum_" -- Prelude conflict
4646 fixName' "maximum" = "maximum_" -- Prelude conflict
4747 fixName' "enum" = "enum_" -- Control.Lens conflict
48+ fixName' "head" = "head_" -- Prelude conflict
4849 fixName' n = n
4950
5051gunfoldEnum :: 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+1−1
@@ -26,7 +26,7 @@ makeFields ''Host
2626makeFields ''Info
2727makeFields ''Contact
2828makeFields ''License
29−makeFields ''PathItem
29+makeLensesWith swaggerFieldRules ''PathItem
3030makeFields ''Tag
3131makeFields ''Operation
3232makeFields ''Param