@@ -104,9 +104,9 @@ rename name (NamedSchema _ schema) = NamedSchema name schema
104104-- data Coord = Coord { x :: Double, y :: Double }
105105--
106106-- instance ToSchema Coord where
107−-- declareNamedSchema = do
107+-- declareNamedSchema _ = do
108108-- doubleSchema <- declareSchemaRef (Proxy :: Proxy Double)
109−-- return $ NamedSchema (Just \"Coord\")) $ mempty
109+-- return $ NamedSchema (Just \"Coord\") $ mempty
110110-- & type_ .~ SwaggerObject
111111-- & properties .~
112112-- [ (\"x\", doubleSchema)