@@ -23,10 +23,10 @@ data UserSummary = UserSummary
23 } deriving (Generic)
23 } deriving (Generic)
25instance ToSchema UserSummary where
25instance ToSchema UserSummary where
26− declareNamedSchema = do
26+ declareNamedSchema _ = do
27 usernameSchema <- declareSchemaRef (Proxy :: Proxy Username)
27 usernameSchema <- declareSchemaRef (Proxy :: Proxy Username)
28 useridSchema <- declareSchemaRef (Proxy :: Proxy Int)
28 useridSchema <- declareSchemaRef (Proxy :: Proxy Int)
29− return $ NamedSchema (Just "UserSummary")) $ mempty
29+ return $ NamedSchema (Just "UserSummary") $ mempty
30 & type_ .~ SwaggerObject
30 & type_ .~ SwaggerObject
31 & properties .~
31 & properties .~
32 [ ("summaryUsername", usernameSchema )
32 [ ("summaryUsername", usernameSchema )