wrap paths parameter in braces as required by swagger spec

bitonic · bitonic · commit 68ee849d20ac · 2019-04-25T09:35:27.000+02:00
diff --git a/solga-swagger/src/Solga/Swagger.hs b/solga-swagger/src/Solga/Swagger.hs
@@ -194,6 +194,6 @@ instance (Typeable a, ToParamSchema a, RouterSwagger next) => RouterSwagger (Cap
     let pOtherSchema = mempty & in_ .~ ParamPath & paramSchema .~ pSchema
     let param = mempty & name .~ paramName & required .~ Just True & schema .~ ParamOther pOtherSchema
     genPaths (nextProxy p) newCtx
-      { pathSegments  = pathSegments ctx `DL.snoc` paramName
+      { pathSegments  = pathSegments ctx `DL.snoc` ("{" <> paramName <> "}")
       , operationContext = operationContext newCtx & parameters <>~ [ Inline param ]
       }

Original file line number	Diff line number	Diff line change
`@@ -194,6 +194,6 @@ instance (Typeable a, ToParamSchema a, RouterSwagger next) => RouterSwagger (Cap`
`194`	`194`	`let pOtherSchema = mempty & in_ .~ ParamPath & paramSchema .~ pSchema`
`195`	`195`	`let param = mempty & name .~ paramName & required .~ Just True & schema .~ ParamOther pOtherSchema`
`196`	`196`	`genPaths (nextProxy p) newCtx`
`197`		- { pathSegments = pathSegments ctx `DL.snoc` paramName
	`197`	+ { pathSegments = pathSegments ctx `DL.snoc` ("{" <> paramName <> "}")
`198`	`198`	`, operationContext = operationContext newCtx & parameters <>~ [ Inline param ]`
`199`	`199`	`}`