From df08d7f3ffa1dfc9bd3acadba4e973b3a644a3d4 Mon Sep 17 00:00:00 2001
From: steve-chavez <stevechavezast@gmail.com>
Date: Thu, 5 Oct 2023 22:28:29 -0300
Subject: [PATCH] refactor: rename JSONParseError to PGRSTParseError

The error name is too generic otherwise.
---
 src/PostgREST/Error.hs             | 14 +++++++-------
 test/spec/Feature/Query/RpcSpec.hs |  6 +++---
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/PostgREST/Error.hs b/src/PostgREST/Error.hs
index 6808bd3b1..b1ee1178f 100644
--- a/src/PostgREST/Error.hs
+++ b/src/PostgREST/Error.hs
@@ -371,8 +371,8 @@ instance PgrstError PgError where
 
   headers (PgError _ (SQL.SessionUsageError (SQL.QueryError _ _ (SQL.ResultError (SQL.ServerError "PGRST" m d _ _p))))) =
     case (parseMessage m, parseDetails d) of
-      (Just _, Just r) -> headers JSONParseError ++ map intoHeader (M.toList $ getHeaders r)
-      _                -> headers JSONParseError
+      (Just _, Just r) -> headers PGRSTParseError ++ map intoHeader (M.toList $ getHeaders r)
+      _                -> headers PGRSTParseError
     where
       intoHeader (k,v) = (CI.mk $ T.encodeUtf8 k, T.encodeUtf8 v)
 
@@ -409,7 +409,7 @@ instance JSON.ToJSON SQL.CommandError where
         "message"  .= getMessage r,
         "details"  .= checkMaybe (getDetails r),
         "hint"     .= checkMaybe (getHint r)]
-      _ -> JSON.toJSON JSONParseError
+      _ -> JSON.toJSON PGRSTParseError
     where
       checkMaybe = maybe JSON.Null JSON.String
 
@@ -473,7 +473,7 @@ pgErrorStatus authed (SQL.SessionUsageError (SQL.QueryError _ _ (SQL.ResultError
         "PGRST"   ->
           case (parseMessage m, parseDetails d) of
             (Just _, Just r) -> maybe (toEnum $ getStatus r) (HTTP.mkStatus (getStatus r) . T.encodeUtf8) (getStatusText r)
-            _                -> status JSONParseError
+            _                -> status PGRSTParseError
         _         -> HTTP.status400
 
     _                       -> HTTP.status500
@@ -491,7 +491,7 @@ data Error
   | PgErr PgError
   | PutMatchingPkError
   | SingularityError Integer
-  | JSONParseError
+  | PGRSTParseError
 
 instance PgrstError Error where
   status (ApiRequestError err)   = status err
@@ -505,7 +505,7 @@ instance PgrstError Error where
   status (PgErr err)             = status err
   status PutMatchingPkError      = HTTP.status400
   status SingularityError{}      = HTTP.status406
-  status JSONParseError          = HTTP.status500
+  status PGRSTParseError         = HTTP.status500
 
   headers (ApiRequestError err)  = headers err
   headers (JwtTokenInvalid m)    = [invalidTokenHeader m]
@@ -566,7 +566,7 @@ instance JSON.ToJSON Error where
     "details" .= T.unwords ["The result contains", show n, "rows"],
     "hint"    .= JSON.Null]
 
-  toJSON JSONParseError = JSON.object [
+  toJSON PGRSTParseError = JSON.object [
     "code"    .= ApiRequestErrorCode21,
     "message" .= ("The message and detail field of RAISE 'PGRST' error expects JSON" :: Text),
     "details" .= JSON.Null,
diff --git a/test/spec/Feature/Query/RpcSpec.hs b/test/spec/Feature/Query/RpcSpec.hs
index 881f57cdf..e9f986062 100644
--- a/test/spec/Feature/Query/RpcSpec.hs
+++ b/test/spec/Feature/Query/RpcSpec.hs
@@ -1537,17 +1537,17 @@ spec actualPgVersion =
           resHeaders `shouldSatisfy` elem ("X-Header", "str")
           resBody `shouldBe` [json|{"code":"123","message":"ABC","details":null,"hint":null}|]
 
-      it "returns JSONParseError for invalid JSON in RAISE Message field" $
+      it "returns error for invalid JSON in RAISE Message field" $
         get "/rpc/raise_sqlstate_invalid_json_message" `shouldRespondWith`
           [json|{"code":"PGRST121","message":"The message and detail field of RAISE 'PGRST' error expects JSON","details":null,"hint":null}|]
           { matchStatus = 500 }
 
-      it "returns JSONParseError for invalid JSON in RAISE Details field" $
+      it "returns error for invalid JSON in RAISE Details field" $
         get "/rpc/raise_sqlstate_invalid_json_details" `shouldRespondWith`
           [json|{"code":"PGRST121","message":"The message and detail field of RAISE 'PGRST' error expects JSON","details":null,"hint":null}|]
           { matchStatus = 500 }
 
-      it "returns JSONParseError for missing Details field in RAISE" $
+      it "returns error for missing Details field in RAISE" $
         get "/rpc/raise_sqlstate_missing_details" `shouldRespondWith`
           [json|{"code":"PGRST121","message":"The message and detail field of RAISE 'PGRST' error expects JSON","details":null,"hint":null}|]
           { matchStatus = 500 }