fix a spot where we were showing a bytestring instead of decoding it

fossas · May 30, 2024 · d045d93 · d045d93
1 parent 818d8a5
commit d045d93
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/App/Fossa/ArchiveUploader.hs b/src/App/Fossa/ArchiveUploader.hs
@@ -64,7 +64,7 @@ compressAndUpload arcDir tmpDir VendoredDependency{..} = context "compressing an
 
   logSticky $ "Uploading '" <> vendoredName <> "' to secure S3 bucket"
   res <- uploadArchive signedURL compressedFile
-  logDebug $ pretty $ show res
+  logDebug . pretty $ (decodeUtf8 @Text res)
 
   pure $ Archive vendoredName depVersion
 

diff --git a/src/App/Fossa/SBOM/Analyze.hs b/src/App/Fossa/SBOM/Analyze.hs
@@ -17,7 +17,7 @@ import Control.Effect.Lift
 import Control.Effect.Telemetry (Telemetry, trackUsage)
 import Control.Monad (void)
 import Data.Foldable (traverse_)
-import Data.String.Conversion
+import Data.String.Conversion (ConvertUtf8 (..), toString, toText)
 import Data.Text (Text)
 import Effect.Logger (Logger, logDebug, logInfo)
 import Fossa.API.Types
@@ -89,6 +89,6 @@ uploadSBOM config = do
 
   logSticky $ "Uploading '" <> (projectName revision) <> "' to secure S3 bucket"
   res <- uploadArchive signedURL $ toString path
-  logDebug $ pretty $ show res
+  logDebug . pretty $ (decodeUtf8 @Text res)
 
   pure ()