From 5ffb1b4a837e185436a7f17c2db3a5ea8a291dc3 Mon Sep 17 00:00:00 2001 From: Rene Vergara Date: Fri, 23 Jun 2023 11:45:07 -0500 Subject: [PATCH] Add debugging to WooCommerce endpoint --- src/WooCommerce.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/WooCommerce.hs b/src/WooCommerce.hs index 1699efc..7c35823 100644 --- a/src/WooCommerce.hs +++ b/src/WooCommerce.hs @@ -103,7 +103,9 @@ payWooOrder u i o t p z = do res <- httpLBS req if getResponseStatus res == ok200 then return () - else error "Failed to report payment to WooCommerce" + else do + print $ getResponseStatus res + error "Failed to report payment to WooCommerce" generateWooToken :: Owner -> String -> Action IO () generateWooToken o s =