diff --git a/Handler/Haddock.hs b/Handler/Haddock.hs
index cfcd66a..e3f818a 100644
--- a/Handler/Haddock.hs
+++ b/Handler/Haddock.hs
@@ -103,7 +103,7 @@ createCompressor rawdir gzdir cachedir = do
     return $ void $ tryPutMVar baton ()
   where
     go fp = liftIO $ handle (print . asSomeException) $ do
-        gzipHash cachedir fp (gzdir </> fp)
+        gzipHash cachedir fp (gzdir </> suffix)
       where
         Just suffix = F.stripPrefix (rawdir </> "") fp