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

Haddock redirect for incomplete snapshot names #212

Browse Source
This commit is contained in:
Michael Snoyman 2016-11-13 08:40:07 +02:00
parent 58c4e6c163
commit 6d4f9e03fa
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Handler/Haddock.hs
View File

@ -73,6 +73,10 @@ redirectWithVersion slug rest =
_ -> return Nothing
getHaddockBackupR :: [Text] -> Handler ()
getHaddockBackupR (snap':rest)
| Just branch <- fromPathPiece snap' = track "Handler.Haddock.getHaddockBackupR" $ do
snapName <- newestSnapshot branch >>= maybe notFound pure
redirect $ HaddockR snapName rest
getHaddockBackupR rest = track "Handler.Haddock.getHaddockBackupR" $ redirect $ concat
$ "https://s3.amazonaws.com/haddock.stackage.org"
: map (cons '/') rest