diff --git a/test/spec/Feature/Query/InsertSpec.hs b/test/spec/Feature/Query/InsertSpec.hs
index 7a8caddca..18ff34957 100644
--- a/test/spec/Feature/Query/InsertSpec.hs
+++ b/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":"￥" } ]|]
diff --git a/test/spec/SpecHelper.hs b/test/spec/SpecHelper.hs
index 3a01eaa80..d2b07c402 100644
--- a/test/spec/SpecHelper.hs
+++ b/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