From e6fe53feb5f2dfcafce4ea3bea8c03ef412a6971 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 10 Dec 2017 11:49:19 +0200
Subject: [PATCH] Switch back to pretty style

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

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