From b7d0e1730d41647ea373f07ed531a88b0e9c924c Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Mon, 16 Oct 2023 15:49:21 +0300 Subject: [PATCH] removed debug print --- hbs2-git/lib/HBS2Git/Import.hs | 6 ------ 1 file changed, 6 deletions(-) diff --git a/hbs2-git/lib/HBS2Git/Import.hs b/hbs2-git/lib/HBS2Git/Import.hs index d516b7e7..db4644d1 100644 --- a/hbs2-git/lib/HBS2Git/Import.hs +++ b/hbs2-git/lib/HBS2Git/Import.hs @@ -171,12 +171,6 @@ importRefLogNew opts ref = runResourceT do let myTempDir = "hbs-git" temp <- liftIO getTemporaryDirectory - wtf <- liftIO getEnvironment - - hPrint stderr $ "CREATE TEMP DIR" <+> pretty temp <> line <> pretty wtf - - -- liftIO $ void $ createDirectoryIfMissing True temp - (_,dir) <- allocate (createTempDirectory temp myTempDir) removeDirectoryRecursive lift $ makePolled ref