@@ -23,10 +23,10 @@ data UserSummary = UserSummary
2323 } deriving (Generic)
2424
2525instance ToSchema UserSummary where
26− declareNamedSchema = do
26+ declareNamedSchema _ = do
2727 usernameSchema <- declareSchemaRef (Proxy :: Proxy Username)
2828 useridSchema <- declareSchemaRef (Proxy :: Proxy Int)
29− return $ NamedSchema (Just "UserSummary")) $ mempty
29+ return $ NamedSchema (Just "UserSummary") $ mempty
3030 & type_ .~ SwaggerObject
3131 & properties .~
3232 [ ("summaryUsername", usernameSchema )