tests: fix incomplete pattern warnings (GHC 9.2)

test/spec/Feature/Query/InsertSpec.hs

@@ -498,7 +498,7 @@ spec actualPgVersion = do
           [json|[ { "k":"圍棋", "extra":"￥" } ]|]
           { matchStatus = 201 }
 
-        let Just location = lookup hLocation $ simpleHeaders p
+        Just location <- pure $ lookup hLocation $ simpleHeaders p
         get location
           `shouldRespondWith`
             [json|[ { "k":"圍棋", "extra":"￥" } ]|]

test/spec/SpecHelper.hs

@@ -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