From 413aa50450d9254a2a01da7b3c6e4e7b2f333387 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 17 May 2016 19:28:26 +0300
Subject: [PATCH] Workaround for #176

---
 Handler/Haddock.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Handler/Haddock.hs b/Handler/Haddock.hs
index 3ed1715..36a8aa8 100644
--- a/Handler/Haddock.hs
+++ b/Handler/Haddock.hs
@@ -14,8 +14,12 @@ makeURL slug rest = concat
     : toPathPiece slug
     : map (cons '/') rest
 
+shouldRedirect :: Bool
+shouldRedirect = True
+
 getHaddockR :: SnapName -> [Text] -> Handler TypedContent
 getHaddockR slug rest
+  | shouldRedirect = redirect $ makeURL slug rest
   | final:_ <- reverse rest, ".html" `isSuffixOf` final = do
       render <- getUrlRender
 
@@ -44,6 +48,7 @@ getHaddockR slug rest
          $ responseBody res
         $= tokenStream
         $= concatMapC addExtra
+        -- FIXME showToken does not encode HTML entities
         $= mapC (Chunk . showToken id)
   | otherwise = redirect $ makeURL slug rest