From 904c3f3e70ba1fbb42bc27116cba4fa2c49841a3 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 23 Oct 2014 21:13:20 +0300
Subject: [PATCH] Use suffix instead of fp (PEBKAC)

---
 Handler/Haddock.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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