haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-02 22:30:24 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Remove some accidentally added debug code (thanks @chrisdone)

Browse Source
This commit is contained in:
Michael Snoyman 2016-06-08 15:53:55 +03:00
parent 34d23b6e47
commit e1f65cc655
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Stackage/Database/Cron.hs
View File

@ -221,8 +221,7 @@ createHoogleDB db man name = handleAny (\e -> print e $> Nothing) $ do
void $ tryIO $ removeFile (fromString outname) void $ tryIO $ removeFile (fromString outname)
createTree (fromString bindir) createTree (fromString bindir)
withSystemTempDirectory ("hoogle-" ++ unpack (toPathPiece name)) $ \_tmpdir -> do withSystemTempDirectory ("hoogle-" ++ unpack (toPathPiece name)) $ \tmpdir -> do
let tmpdir = "/Users/michael/Desktop/hoo"
runResourceT runResourceT
$ sourceTarFile False tarFP $ sourceTarFile False tarFP
$$ mapM_C (liftIO . singleDB db name tmpdir) $$ mapM_C (liftIO . singleDB db name tmpdir)