Add debugging to WooCommerce endpoint

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 =