haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-03 14:50:25 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Disable custom Haddock style by default #278

Browse Source
This commit is contained in:
Michael Snoyman 2019-10-15 09:55:10 +03:00
parent 2701f186ca
commit ab8d383cd5
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Haddock.hs
View File

@ -38,7 +38,7 @@ getHaddockR snapName rest
case docType of case docType of
DocHtml -> do DocHtml -> do
mstyle <- lookupGetParam "style" mstyle <- lookupGetParam "style"
return ("text/html; charset=utf-8", mstyle == Just "plain") return ("text/html; charset=utf-8", mstyle /= Just "stackage")
DocJson -> DocJson ->
return ("application/jsontml; charset=utf-8", True) return ("application/jsontml; charset=utf-8", True)
req <- parseRequest $ unpack $ makeURL snapName rest req <- parseRequest $ unpack $ makeURL snapName rest