From 75390181c1ebf67e80766b9f69108e4d67df1b51 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 8 Dec 2017 10:49:30 +0200
Subject: [PATCH] Temporarily disable pretty styling

---
 Handler/Haddock.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Handler/Haddock.hs b/Handler/Haddock.hs
index 477dda8..40e57b1 100644
--- a/Handler/Haddock.hs
+++ b/Handler/Haddock.hs
@@ -50,7 +50,9 @@ getHaddockR slug rest
                 addExtra t = [t]
             req <- parseRequest $ unpack $ makeURL slug rest
             (_, res) <- acquireResponse req >>= allocateAcquire
-            mstyle <- lookupGetParam "style"
+            -- mstyle <- lookupGetParam "style"
+            -- TODO: Uncomment line above. Restyling is really slow right now, still need to debug it.
+            let mstyle = Just ("plain" :: Text)
             case mstyle of
               Just "plain" -> respondSource "text/html; charset=utf-8"
                             $ responseBody res .| mapC (Chunk . toBuilder)