From 387ffae20d3279d7da58f79da64b262b41455ca2 Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Sat, 29 May 2021 15:06:22 +0200
Subject: [PATCH] Fix Swagger

---
 Handler/ShowChallenge.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Handler/ShowChallenge.hs b/Handler/ShowChallenge.hs
index 68b7196..8584049 100644
--- a/Handler/ShowChallenge.hs
+++ b/Handler/ShowChallenge.hs
@@ -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)