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

Sanitize ident

Browse Source
This commit is contained in:
Michael Snoyman 2014-10-23 06:30:34 +03:00
parent a68d05ad9f
commit f42eb69498
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Handler/Haddock.hs
View File

@ -39,6 +39,7 @@ putUploadHaddockR = getUploadHaddockR
getHaddockR :: PackageSetIdent -> [Text] -> Handler () getHaddockR :: PackageSetIdent -> [Text] -> Handler ()
getHaddockR ident rest = do getHaddockR ident rest = do
sanitize $ toPathPiece ident
mapM_ sanitize rest mapM_ sanitize rest
dir <- getHaddockDir ident dir <- getHaddockDir ident
master <- getYesod master <- getYesod