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

Use suffix instead of fp (PEBKAC)

Browse Source
This commit is contained in:
Michael Snoyman 2014-10-23 21:13:20 +03:00
parent 8dc6c65b9d
commit 904c3f3e70
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Handler/Haddock.hs
View File

@ -103,7 +103,7 @@ createCompressor rawdir gzdir cachedir = do
return $ void $ tryPutMVar baton () return $ void $ tryPutMVar baton ()
where where
go fp = liftIO $ handle (print . asSomeException) $ do go fp = liftIO $ handle (print . asSomeException) $ do
gzipHash cachedir fp (gzdir </> fp) gzipHash cachedir fp (gzdir </> suffix)
where where
Just suffix = F.stripPrefix (rawdir </> "") fp Just suffix = F.stripPrefix (rawdir </> "") fp