@@ -104,9 +104,9 @@ rename name (NamedSchema _ schema) = NamedSchema name schema
104-- data Coord = Coord { x :: Double, y :: Double }
104-- data Coord = Coord { x :: Double, y :: Double }
106-- instance ToSchema Coord where
106-- instance ToSchema Coord where
107−-- declareNamedSchema = do
107+-- declareNamedSchema _ = do
108-- doubleSchema <- declareSchemaRef (Proxy :: Proxy Double)
108-- doubleSchema <- declareSchemaRef (Proxy :: Proxy Double)
109−-- return $ NamedSchema (Just \"Coord\")) $ mempty
109+-- return $ NamedSchema (Just \"Coord\") $ mempty
110-- & type_ .~ SwaggerObject
110-- & type_ .~ SwaggerObject
111-- & properties .~
111-- & properties .~
112-- [ (\"x\", doubleSchema)
112-- [ (\"x\", doubleSchema)