jsont error-detail

src/mte.ml

@@ -13,13 +13,11 @@
     You should have received a copy of the GNU Affero General Public License
     along with this program.  If not, see <https://www.gnu.org/licenses/>. *)
 
-(* TODO ??: GANA error codes
-   https://git.gnunet.org/gana.git/tree/gnu-taler-error-codes/registry.rec *)
-
-(* https://docs.taler.net/core/api-common.html#tsref-type-ErrorDetail *)
-let error_detail ?hint status =
-  let _ = (hint, status) in
-  "{}"
+let error_detail ?hint _status =
+  let open Types.ErrorDetail in
+  let code = -1 in
+  let s = to_string (make code hint) in
+  s
 
 module Respond_with = struct
   open Vif.Response