From 8b833a462a753b7db38e3cb744947285031f93f4 Mon Sep 17 00:00:00 2001
From: stuebinm <stuebinm@disroot.org>
Date: Sun, 14 Nov 2021 21:27:04 +0100
Subject: [PATCH] disable print output when copying files
(this would otherwise break the json schema if `--json` is given)
---
lib/WriteRepo.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/WriteRepo.hs b/lib/WriteRepo.hs
index 52f0736..89e1bea 100644
--- a/lib/WriteRepo.hs
+++ b/lib/WriteRepo.hs
@@ -28,7 +28,7 @@ import Types (Dep (Local))
writeAdjustedRepository :: LintConfig' -> FilePath -> FilePath -> DirResult -> IO ExitCode
writeAdjustedRepository config inPath outPath result
| resultIsFatal result && not (configDontCopyAssets config) = do
- putStrLn "FATAL: Repository has missing assets; cannot write to outPath"
+ -- putStrLn "FATAL: Repository has missing assets; cannot write to outPath"
pure (ExitFailure 1)
| otherwise = do
createDirectoryIfMissing True outPath
@@ -57,7 +57,7 @@ writeAdjustedRepository config inPath outPath result
assetPath = FP.normalise $ inPath </> path
newPath = FP.normalise $ outPath </> path
in do
- putStrLn $ "copying " <> assetPath <> " → " <> newPath
+ -- putStrLn $ "copying " <> assetPath <> " → " <> newPath
copyFile assetPath newPath
pure ExitSuccess
--
GitLab