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