From d299e1eef8ec90cc24f86bbf845fece788b310a3 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 23 Oct 2014 15:16:33 +0300
Subject: [PATCH] Don't recompress gz files

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

diff --git a/Handler/Haddock.hs b/Handler/Haddock.hs
index 3cc191b..8ac4a05 100644
--- a/Handler/Haddock.hs
+++ b/Handler/Haddock.hs
@@ -115,6 +115,7 @@ createHaddockUnpacker root store = do
     gzipHash ident = do
         createTree cachedir
         runResourceT $ sourceDirectoryDeep False dir
+                    $= filterC (not . flip hasExtension "gz")
                     $$ mapM_C (liftIO . handle (print . asIOException) . oneFile)
       where
         dir = mkDir ident