From 4e8ecb24e621571b62eb875623990ed25723f550 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Wed, 10 May 2023 14:16:33 -0500
Subject: [PATCH] Correct owner id in API

---
 src/ZGoBackend.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 5641d45..156c791 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -920,7 +920,7 @@ routes pipe config = do
                  [ "message" .= ("Owner found!" :: String)
                  , "owner" .=
                    object
-                     [ "_id" .= (show $ o_id q :: String)
+                     [ "_id" .= (maybe "" show $ o_id q :: String)
                      , "address" .= oaddress q
                      , "name" .= oname q
                      , "currency" .= ocurrency q
@@ -952,7 +952,7 @@ routes pipe config = do
                  [ "message" .= ("Owner found!" :: String)
                  , "owner" .=
                    object
-                     [ "_id" .= (show $ o_id q :: String)
+                     [ "_id" .= (maybe "" show $ o_id q :: String)
                      , "address" .= oaddress q
                      , "name" .= oname q
                      , "currency" .= ocurrency q