haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 04:08:29 +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
dirs = mkDirs root
removeTreeIfExists fp = whenM (isDirectory fp) (removeTree fp)
doDirsExist ident = do
e1 <- isDirectory $ dirGzIdent dirs ident
if e1
@ -276,8 +278,8 @@ createHaddockUnpacker root store runDB' = do
toRun <-
if forceUnpack
then do
removeTree $ dirRawIdent dirs ident
removeTree $ dirGzIdent dirs ident
removeTreeIfExists $ dirRawIdent dirs ident
removeTreeIfExists $ dirGzIdent dirs ident
return True
else not <$> doDirsExist ident
when toRun $ do