haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-18 23:21:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Don't recompress gz files

Browse Source
This commit is contained in:
Michael Snoyman 2014-10-23 15:16:33 +03:00
parent 2011967b08
commit d299e1eef8
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Handler/Haddock.hs
View File

@ -115,6 +115,7 @@ createHaddockUnpacker root store = do
gzipHash ident = do gzipHash ident = do
createTree cachedir createTree cachedir
runResourceT $ sourceDirectoryDeep False dir runResourceT $ sourceDirectoryDeep False dir
$= filterC (not . flip hasExtension "gz")
$$ mapM_C (liftIO . handle (print . asIOException) . oneFile) $$ mapM_C (liftIO . handle (print . asIOException) . oneFile)
where where
dir = mkDir ident dir = mkDir ident