tests: fix incomplete pattern warnings (GHC 9.2)

2022-06-16 10:39:02 +02:00
parent f582798276
commit 3d65d66b1b
2 changed files with 2 additions and 2 deletions
@@ -52,7 +52,7 @@ validateOpenApiResponse headers = do
    let respHeaders = simpleHeaders r in
    respHeaders `shouldSatisfy`
      \hs -> ("Content-Type", "application/openapi+json; charset=utf-8") `elem` hs
-  let Just body = decode (simpleBody r)
+  Just body <- pure $ decode (simpleBody r)
  Just schema <- liftIO $ decode <$> BL.readFile "test/spec/fixtures/openapi.json"
  let args :: M.Map Text Value
      args = M.fromList