From 30c14fe5c0b93bcc6261b5d050edeadf5ad58627 Mon Sep 17 00:00:00 2001 From: Gautier DI FOLCO Date: Sun, 18 Aug 2024 12:07:14 +0200 Subject: [PATCH] fix: debug statement compilation --- app/Main.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index ce193d4..a008f6e 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -11,12 +11,14 @@ import Data.Base64.Types (extractBase64) import Data.ByteString (ByteString) import qualified Data.ByteString.Char8 as B import Data.ByteString.Lazy.Base64 (encodeBase64) +import qualified Data.ByteString.Lazy.Char8 as LB import Data.Coerce import Data.Functor.Identity import qualified Data.Map.Strict as Map import Data.SARIF as Sarif import Data.Text (Text) import qualified Data.Text as T +import qualified Data.Text.Lazy.IO as TL import Distribution.Audit (AuditConfig (..), buildAdvisories) import Distribution.Client.NixStyleOptions (defaultNixStyleFlags) import Distribution.Package (PackageName, unPackageName) @@ -171,9 +173,9 @@ sendAdvisories ghContext packageAdvisories = do putStrLn "sarifLog" print sarifLog putStrLn "lbsSharifLog" - B.putStrLn lbsSharifLog + LB.putStrLn lbsSharifLog putStrLn "base64GzippedSarifLog" - B.putStrLn base64GzippedSarifLog + TL.putStrLn base64GzippedSarifLog let ghSettings = GitHubSettings