From b49a996bf591d3f10b3741551e1c1dc30873dc54 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Thu, 22 Jun 2023 16:39:31 -0500
Subject: [PATCH] Correct session generation for Xero orders

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

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index ff68a61..bb1f5ea 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -727,8 +727,10 @@ routes pipe config = do
                                                              Nothing
                                                              (oaddress o')
                                                              ("Xero-" <>
-                                                              T.pack
-                                                                (show $ o_id o'))
+                                                              maybe
+                                                                ""
+                                                                (T.pack . show)
+                                                                (o_id o'))
                                                              now
                                                              True
                                                              (ocurrency o')