s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects 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
stringSchema <- declareSchemaRef (DPR.Proxy :: DPR.Proxy String)
boolSchema <- declareSchemaRef (DPR.Proxy :: DPR.Proxy Bool)
return $ NamedSchema (Just "Tag") $ mempty
return $ NamedSchema (Just "TagView") $ mempty
& type_ .~ SwaggerObject
& properties .~
fromList [ ("name", stringSchema)
@ -1296,7 +1296,7 @@ instance ToSchema SubmissionsView where
declareNamedSchema _ = do
submissionViewsSchema <- declareSchemaRef (DPR.Proxy :: DPR.Proxy [SubmissionView])
testRefsSchema <- declareSchemaRef (DPR.Proxy :: DPR.Proxy [TestReference])
return $ NamedSchema (Just "Tag") $ mempty
return $ NamedSchema (Just "SubmissionsView") $ mempty
& type_ .~ SwaggerObject
& properties .~
fromList [ ("submissions", submissionViewsSchema)