Correct session generation for Xero orders

2023-06-22 16:39:31 -05:00 · 2023-06-22 16:39:31 -05:00 · b49a996bf5
parent 013feabd20
commit b49a996bf5
1 changed files with 4 additions and 2 deletions
--- 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')