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