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

Temporarily disable pretty styling

Browse Source
This commit is contained in:
Michael Snoyman 2017-12-08 10:49:30 +02:00
parent e054d25982
commit 75390181c1
No known key found for this signature in database
GPG Key ID: A048E8C057E86876
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Handler/Haddock.hs
View File

@ -50,7 +50,9 @@ getHaddockR slug rest
addExtra t = [t] addExtra t = [t]
req <- parseRequest $ unpack $ makeURL slug rest req <- parseRequest $ unpack $ makeURL slug rest
(_, res) <- acquireResponse req >>= allocateAcquire (_, 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 case mstyle of
Just "plain" -> respondSource "text/html; charset=utf-8" Just "plain" -> respondSource "text/html; charset=utf-8"
$ responseBody res .| mapC (Chunk . toBuilder) $ responseBody res .| mapC (Chunk . toBuilder)