From ecdcb854acc51c01ec45b3ac0239d86629971b70 Mon Sep 17 00:00:00 2001
From: patrick brisbin <pbrisbin@gmail.com>
Date: Fri, 19 Jul 2024 13:38:03 -0400
Subject: [PATCH] Debug setting GITHUB_OUTPUT

---
 src/Restyler/RestyleResult.hs | 31 +++++++++++++++++--------------
 1 file changed, 17 insertions(+), 14 deletions(-)

diff --git a/src/Restyler/RestyleResult.hs b/src/Restyler/RestyleResult.hs
index e60db014f..e2472ad5d 100644
--- a/src/Restyler/RestyleResult.hs
+++ b/src/Restyler/RestyleResult.hs
@@ -47,20 +47,23 @@ setRestylerResultOutputs
   -> m ()
 setRestylerResultOutputs = \case
   RestyleSuccessDifference config pr results -> do
-    let details = restyledPullRequestDetails config pr results
-    appendGitHubOutput
-      $ unlines
-        [ "differences=true"
-        , "restyled-base=" <> details.base
-        , "restyled-head=" <> details.head
-        , "restyled-title=" <> details.title
-        , "restyled-body<<EOM"
-        , details.body
-        , "EOM"
-        , "restyled-labels=" <> mcsv details.labels
-        , "restyled-reviewers=" <> mcsv details.reviewers
-        , "restyled-team-reviewers=" <> mcsv details.teamReviewers
-        ]
+    let
+      details = restyledPullRequestDetails config pr results
+      contents =
+        unlines
+          [ "differences=true"
+          , "restyled-base=" <> details.base
+          , "restyled-head=" <> details.head
+          , "restyled-title=" <> details.title
+          , "restyled-body<<EOM"
+          , details.body
+          , "EOM"
+          , "restyled-labels=" <> mcsv details.labels
+          , "restyled-reviewers=" <> mcsv details.reviewers
+          , "restyled-team-reviewers=" <> mcsv details.teamReviewers
+          ]
+    putStrLn $ unpack contents -- TODO
+    appendGitHubOutput contents
   _ -> appendGitHubOutput "differences=false"
  where
   mcsv :: Maybe (NonEmpty Text) -> Text