cleanup error codes

Author: adamretter

src/main/xar-resources/api.xqm

@@ -640,8 +640,7 @@ function api:query($range-header, $body) {
                 "reason": "Missing request body"
             },
             map {
-                "code": 1,
-                "description": "Missing request body"
+                "error": $perr:AP001
             }
         )
     else if (ut:is-guest())
@@ -673,8 +672,7 @@ function api:query($range-header, $body) {
                         "reason": "Stored query: " || $query-data?query-uri || " does not exist!"
                     },
                     map {
-                        "code": 2,
-                        "description": "Stored query: " || $query-data?query-uri || " does not exist!"
+                        "error": $perr:XQ001
                     }
                 )
             else
@@ -695,8 +693,7 @@ function api:query($range-header, $body) {
                         }
                         return
                             map {
-                                "code": 3,
-                                "description": "An error occurred whilst evaluating the query",
+                                "error": $perr:XQ002,
                                 "xquery-error": ut:filter-map($error-map, ut:filter-entry-value-empty-sequence#2)
                             }
                     }

src/main/xar-resources/modules/error.xqm

@@ -34,6 +34,21 @@ declare variable $perr:PD003 := map {
     "description": "Source Document URI, does not exist"
 };
 
+declare variable $perr:AP001 := map {
+    "code": fn:QName("http://fusiondb.com/ns/studio/api/error", "AP001"),
+    "description": "Missing request body"
+};
+
+declare variable $perr:XQ001 := map {
+    "code": fn:QName("http://fusiondb.com/ns/studio/api/error", "XQ001"),
+    "description": "Stored query does not exist"
+};
+
+declare variable $perr:XQ002 := map {
+    "code": fn:QName("http://fusiondb.com/ns/studio/api/error", "XQ002"),
+    "description": "An error occurred whilst evaluating the query"
+};
+
 declare function perr:error($error as map(xs:string, item())) {
     perr:error($error, (), ())
 };

src/test/resources/query-error-schema.json

@@ -2,13 +2,19 @@
   "$schema": "http://json-schema.org/draft-07/schema#",
   "title": "Document",
   "type": "object",
-  "required" : [ "code", "description" ],
+  "required" : [ "error" ],
   "properties": {
-    "code": {
-      "type": "integer"
-    },
-    "description": {
-      "type": "string"
+    "error": {
+      "type": "object",
+      "required" : [ "code", "description" ],
+      "properties": {
+        "code": {
+          "type": "string"
+        },
+        "description": {
+          "type": "string"
+        }
+      }
     },
     "xquery-error": {
       "type": "object",