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)