From bc80b1048f684254b596823000c34c19ef2609b6 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Fri, 3 Sep 2021 21:00:39 +0200 Subject: [PATCH] Fix debug logs --- lib/GHCup/Utils.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/GHCup/Utils.hs b/lib/GHCup/Utils.hs index 706f83d..f4dfb4e 100644 --- a/lib/GHCup/Utils.hs +++ b/lib/GHCup/Utils.hs @@ -176,7 +176,7 @@ rmMajorSymlinks tv@GHCTargetVersion{..} = do forM_ files $ \f -> do let f_xy = f <> "-" <> T.unpack v' <> exeExt let fullF = binDir f_xy - lift $ logDebug "rm -f #{fullF}" + lift $ logDebug ("rm -f " <> T.pack fullF) lift $ hideError doesNotExistErrorType $ rmLink fullF @@ -1035,7 +1035,7 @@ ensureGlobalTools = do let dl = downloadCached' shimDownload (Just "gs.exe") Nothing void $ (\(DigestError _ _) -> do lift $ logWarn "Digest doesn't match, redownloading gs.exe..." - lift $ logDebug "rm -f #{shimDownload}" + lift $ logDebug ("rm -f " <> T.pack shimDownload) lift $ hideError doesNotExistErrorType $ recycleFile (cacheDir dirs "gs.exe") liftE @'[DigestError , DownloadFailed] $ dl ) `catchE` (liftE @'[DigestError , DownloadFailed] dl)