jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tests: fix incomplete pattern warnings (GHC 9.2)

Browse Source
This commit is contained in:
Robert Vollmert
2022-06-16 10:39:02 +02:00
parent f582798276
commit 3d65d66b1b
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/spec/Feature/Query/InsertSpec.hs
+1 -1
View File
@@ -498,7 +498,7 @@ spec actualPgVersion = do
[json|[ { "k":"圍棋", "extra":"￥" } ]|] [json|[ { "k":"圍棋", "extra":"￥" } ]|]
{ matchStatus = 201 } { matchStatus = 201 }
let Just location = lookup hLocation $ simpleHeaders p Just location <- pure $ lookup hLocation $ simpleHeaders p
get location get location
`shouldRespondWith` `shouldRespondWith`
[json|[ { "k":"圍棋", "extra":"￥" } ]|] [json|[ { "k":"圍棋", "extra":"￥" } ]|]
test/spec/SpecHelper.hs
+1 -1
View File
@@ -52,7 +52,7 @@ validateOpenApiResponse headers = do
let respHeaders = simpleHeaders r in let respHeaders = simpleHeaders r in
respHeaders `shouldSatisfy` respHeaders `shouldSatisfy`
\hs -> ("Content-Type", "application/openapi+json; charset=utf-8") `elem` hs \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" Just schema <- liftIO $ decode <$> BL.readFile "test/spec/fixtures/openapi.json"
let args :: M.Map Text Value let args :: M.Map Text Value
args = M.fromList args = M.fromList