refactor: Sort error types

Signed-off-by: Wolfgang Walther <walther@technowledgy.de>

src/PostgREST/Request/ApiRequest.hs

@@ -83,11 +83,16 @@ data Payload
 
 data InvokeMethod = InvHead | InvGet | InvPost deriving Eq
 -- | Types of things a user wants to do to tables/views/procs
-data Action = ActionCreate       | ActionRead{isHead :: Bool}
-            | ActionUpdate       | ActionDelete
-            | ActionSingleUpsert | ActionInvoke InvokeMethod
-            | ActionInfo         | ActionInspect{isHead :: Bool}
-            deriving Eq
+data Action
+  = ActionCreate
+  | ActionRead {isHead :: Bool}
+  | ActionUpdate
+  | ActionDelete
+  | ActionSingleUpsert
+  | ActionInvoke InvokeMethod
+  | ActionInfo
+  | ActionInspect {isHead :: Bool}
+  deriving Eq
 -- | The path info that will be mapped to a target (used to handle validations and errors before defining the Target)
 data Path
   = PathInfo

src/PostgREST/Request/Types.hs

@@ -59,19 +59,19 @@ import Protolude
 
 data ApiRequestError
   = ActionInappropriate
-  | InvalidRange
-  | InvalidBody ByteString
-  | ParseRequestError Text Text
-  | QueryParamError QPError
-  | NoRelBetween Text Text Text
   | AmbiguousRelBetween Text Text [Relationship]
   | AmbiguousRpc [ProcDescription]
-  | NoRpc Text Text [Text] Bool ContentType Bool
-  | InvalidFilters
-  | UnacceptableSchema [Text]
   | ContentTypeError [ByteString]
-  | UnsupportedVerb                -- Unreachable?
+  | InvalidBody ByteString
+  | InvalidFilters
+  | InvalidRange
+  | NoRelBetween Text Text Text
+  | NoRpc Text Text [Text] Bool ContentType Bool
   | NotEmbedded Text
+  | ParseRequestError Text Text
+  | QueryParamError QPError
+  | UnacceptableSchema [Text]
+  | UnsupportedVerb                -- Unreachable?
 
 data QPError = QPError Text Text