From db8207f8b9c4444dfed836fb74ff358e3ae4d144 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Sat, 4 Sep 2021 16:06:33 +0200 Subject: [PATCH] Fixup --- lib/GHCup/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/GHCup/Utils.hs b/lib/GHCup/Utils.hs index 69cb8da..cc4ea5f 100644 --- a/lib/GHCup/Utils.hs +++ b/lib/GHCup/Utils.hs @@ -1040,7 +1040,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 " <> (cacheDir dirs "gs.exe")) + lift $ logDebug ("rm -f " <> T.pack (cacheDir dirs "gs.exe")) lift $ hideError doesNotExistErrorType $ recycleFile (cacheDir dirs "gs.exe") liftE @'[DigestError , DownloadFailed] $ dl ) `catchE` (liftE @'[DigestError , DownloadFailed] dl)