From f42eb6949807a63640774b085b6d230a90bd5ede Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 23 Oct 2014 06:30:34 +0300
Subject: [PATCH] Sanitize ident

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

diff --git a/Handler/Haddock.hs b/Handler/Haddock.hs
index fff8035..170bd81 100644
--- a/Handler/Haddock.hs
+++ b/Handler/Haddock.hs
@@ -39,6 +39,7 @@ putUploadHaddockR = getUploadHaddockR
 
 getHaddockR :: PackageSetIdent -> [Text] -> Handler ()
 getHaddockR ident rest = do
+    sanitize $ toPathPiece ident
     mapM_ sanitize rest
     dir <- getHaddockDir ident
     master <- getYesod