From e1f65cc65542371a50b8676d0c1ea8cb08e40632 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Wed, 8 Jun 2016 15:53:55 +0300 Subject: [PATCH] Remove some accidentally added debug code (thanks @chrisdone) --- Stackage/Database/Cron.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Stackage/Database/Cron.hs b/Stackage/Database/Cron.hs index 65d8569..b9fe4c0 100644 --- a/Stackage/Database/Cron.hs +++ b/Stackage/Database/Cron.hs @@ -221,8 +221,7 @@ createHoogleDB db man name = handleAny (\e -> print e $> Nothing) $ do void $ tryIO $ removeFile (fromString outname) createTree (fromString bindir) - withSystemTempDirectory ("hoogle-" ++ unpack (toPathPiece name)) $ \_tmpdir -> do - let tmpdir = "/Users/michael/Desktop/hoo" + withSystemTempDirectory ("hoogle-" ++ unpack (toPathPiece name)) $ \tmpdir -> do runResourceT $ sourceTarFile False tarFP $$ mapM_C (liftIO . singleDB db name tmpdir)