@@ -20,7 +20,21 @@ type Username = Text
20data UserSummary = UserSummary
20data UserSummary = UserSummary
21 { summaryUsername :: Username
21 { summaryUsername :: Username
22 , summaryUserid :: Int
22 , summaryUserid :: Int
23− } deriving (Generic, ToSchema)
23+ } deriving (Generic)
25+instance ToSchema UserSummary where
26+ declareNamedSchema = do
27+ usernameSchema <- declareSchemaRef (Proxy :: Proxy Username)
28+ useridSchema <- declareSchemaRef (Proxy :: Proxy Int)
29+ return $ NamedSchema (Just "UserSummary")) $ mempty
30+ & type_ .~ SwaggerObject
32+ [ ("summaryUsername", usernameSchema )
33+ , ("summaryUserid" , useridSchema )
35+ & required .~ [ "summaryUsername"
25type Group = Text
39type Group = Text