From ab8d383cd5367d70b536e15a572c6b99c10c21e7 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 15 Oct 2019 09:55:10 +0300
Subject: [PATCH] Disable custom Haddock style by default #278

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

diff --git a/src/Handler/Haddock.hs b/src/Handler/Haddock.hs
index 6017f6a..a0bacc5 100644
--- a/src/Handler/Haddock.hs
+++ b/src/Handler/Haddock.hs
@@ -38,7 +38,7 @@ getHaddockR snapName rest
                     case docType of
                         DocHtml -> do
                             mstyle <- lookupGetParam "style"
-                            return ("text/html; charset=utf-8", mstyle == Just "plain")
+                            return ("text/html; charset=utf-8", mstyle /= Just "stackage")
                         DocJson ->
                             return ("application/jsontml; charset=utf-8", True)
                 req <- parseRequest $ unpack $ makeURL snapName rest