Debug setting GITHUB_OUTPUT

restyled-io · Jul 19, 2024 · ecdcb85 · ecdcb85
1 parent 5360d28
commit ecdcb85
Showing 1 changed file with 17 additions and 14 deletions.
diff --git 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