Fix swagger documentation for version-info

2021-09-02 21:13:21 +02:00 · 2021-09-02 21:13:21 +02:00 · 891c9645ab
commit 891c9645ab
parent 75d16e4b73
2 changed files with 2 additions and 1 deletions
--- a/Handler/ListChallenges.hs
+++ b/Handler/ListChallenges.hs
@ -101,7 +101,7 @@ declareVersionInfoSwagger = do

  return $ mempty
    & paths .~
-        [ ("/api/version-info/{challengeName}",
+        [ ("/api/version-info/{versionHash}",
            mempty & get ?~ (mempty
                                 & parameters .~ [ Inline $ mempty
                                                   & name .~ "versionHash"
--- a/PersistSHA1.hs
+++ b/PersistSHA1.hs
@ -55,6 +55,7 @@ hexNibbleToWord8 'E' = 14
 hexNibbleToWord8 'e' = 14
 hexNibbleToWord8 'F' = 15
 hexNibbleToWord8 'f' = 15
+hexNibbleToWord8 c = error ("Unexpected char '" ++ [c] ++ "'")

 instance PersistField SHA1 where
  toPersistValue (SHA1 t) = PersistByteString t