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

removeTreeIfExists

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-26 10:16:11 +02:00
parent cb36a196ba
commit 125e7ea130
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Handler/Haddock.hs
View File

@ -267,6 +267,8 @@ createHaddockUnpacker root store runDB' = do
where where
dirs = mkDirs root dirs = mkDirs root
removeTreeIfExists fp = whenM (isDirectory fp) (removeTree fp)
doDirsExist ident = do doDirsExist ident = do
e1 <- isDirectory $ dirGzIdent dirs ident e1 <- isDirectory $ dirGzIdent dirs ident
if e1 if e1
@ -276,8 +278,8 @@ createHaddockUnpacker root store runDB' = do
toRun <- toRun <-
if forceUnpack if forceUnpack
then do then do
removeTree $ dirRawIdent dirs ident removeTreeIfExists $ dirRawIdent dirs ident
removeTree $ dirGzIdent dirs ident removeTreeIfExists $ dirGzIdent dirs ident
return True return True
else not <$> doDirsExist ident else not <$> doDirsExist ident
when toRun $ do when toRun $ do