Improve error handling for Xero linking

src/Xero.hs

@@ -356,9 +356,13 @@ getTenantId pipe dbName t = do
             setRequestMethod "GET" defaultRequest
       res <- httpJSON req
       let tenants = getResponseBody (res :: Response [XeroTenant])
-      --print tenants
-      _ <- access pipe master dbName $ setTenant (t_address t) (head tenants)
-      return ()
+      print tenants
+      if not (null tenants)
+        then do
+          _ <-
+            access pipe master dbName $ setTenant (t_address t) (head tenants)
+          return ()
+        else error "Couldn't find tenant ID"
     _ -> error "Incorrect type for authorization_event_id"
 
 -- | Update an Owner with XeroTenant id

src/ZGoBackend.hs

@@ -548,7 +548,8 @@ routes pipe config = do
           Nothing -> status noContent204
           Just c -> do
             res <-
-              liftIO $ requestXeroToken pipe (c_dbName config) c code address
+              liftAndCatchIO $
+              requestXeroToken pipe (c_dbName config) c code address
             if res
               then status ok200
               else status noContent204