filipg/gonito
1
0
Fork 1
Code Issues 1 Pull Requests Releases Wiki Activity

Fix Swagger

Browse Source
This commit is contained in:
Filip Gralinski 2021-05-29 15:06:22 +02:00
parent 0c9a21c40b
commit 387ffae20d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Handler/ShowChallenge.hs
View File

@ -1203,7 +1203,7 @@ instance ToSchema TagView where
declareNamedSchema _ = do declareNamedSchema _ = do
stringSchema <- declareSchemaRef (DPR.Proxy :: DPR.Proxy String) stringSchema <- declareSchemaRef (DPR.Proxy :: DPR.Proxy String)
boolSchema <- declareSchemaRef (DPR.Proxy :: DPR.Proxy Bool) boolSchema <- declareSchemaRef (DPR.Proxy :: DPR.Proxy Bool)
return $ NamedSchema (Just "Tag") $ mempty return $ NamedSchema (Just "TagView") $ mempty
& type_ .~ SwaggerObject & type_ .~ SwaggerObject
& properties .~ & properties .~
fromList [ ("name", stringSchema) fromList [ ("name", stringSchema)
@ -1296,7 +1296,7 @@ instance ToSchema SubmissionsView where
declareNamedSchema _ = do declareNamedSchema _ = do
submissionViewsSchema <- declareSchemaRef (DPR.Proxy :: DPR.Proxy [SubmissionView]) submissionViewsSchema <- declareSchemaRef (DPR.Proxy :: DPR.Proxy [SubmissionView])
testRefsSchema <- declareSchemaRef (DPR.Proxy :: DPR.Proxy [TestReference]) testRefsSchema <- declareSchemaRef (DPR.Proxy :: DPR.Proxy [TestReference])
return $ NamedSchema (Just "Tag") $ mempty return $ NamedSchema (Just "SubmissionsView") $ mempty
& type_ .~ SwaggerObject & type_ .~ SwaggerObject
& properties .~ & properties .~
fromList [ ("submissions", submissionViewsSchema) fromList [ ("submissions", submissionViewsSchema)