diff --git a/Handler/ShowChallenge.hs b/Handler/ShowChallenge.hs index c74cfd2..0d8171f 100644 --- a/Handler/ShowChallenge.hs +++ b/Handler/ShowChallenge.hs @@ -1107,8 +1107,8 @@ instance ToSchema SubmissionsView where return $ NamedSchema (Just "Tag") $ mempty & type_ .~ SwaggerObject & properties .~ - fromList [ ("tests", submissionViewsSchema) - , ("submissions", testRefsSchema) + fromList [ ("submissions", submissionViewsSchema) + , ("tests", testRefsSchema) ] & required .~ [ "tests", "submission" ]