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

Keep haddocks in a subdir

Browse Source
This commit is contained in:
Michael Snoyman 2014-10-23 09:27:53 +03:00
parent 9d6975aa55
commit 0cfe2e8d41
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Handler/Haddock.hs
View File

@ -103,7 +103,7 @@ createHaddockUnpacker root store = do
where where
dir = mkDir ident dir = mkDir ident
mkDir ident = root </> fpFromText (toPathPiece ident) mkDir ident = root </> "idents" </> fpFromText (toPathPiece ident)
-- Procedure is to: -- Procedure is to:
-- --

2
Import.hs
View File

@ -15,7 +15,7 @@ import Data.Slug (mkSlug)
getHaddockDir :: PackageSetIdent -> Handler FilePath getHaddockDir :: PackageSetIdent -> Handler FilePath
getHaddockDir ident = do getHaddockDir ident = do
master <- getYesod master <- getYesod
return $ haddockRootDir master </> fpFromText (toPathPiece ident) return $ haddockRootDir master </> "idents" </> fpFromText (toPathPiece ident)
requireAuthIdOrToken :: Handler UserId requireAuthIdOrToken :: Handler UserId
requireAuthIdOrToken = do requireAuthIdOrToken = do