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

Switch to secure Haddock URLs

Browse Source
This commit is contained in:
Michael Snoyman 2016-05-02 14:22:14 +03:00
parent 60af396f9c
commit 267f488bca
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Handler/Haddock.hs
View File

@ -10,7 +10,7 @@ import Text.HTML.TagStream.ByteString (tokenStream, showToken)
makeURL :: SnapName -> [Text] -> Text makeURL :: SnapName -> [Text] -> Text
makeURL slug rest = concat makeURL slug rest = concat
$ "http://haddock.stackage.org/" $ "https://s3.amazonaws.com/haddock.stackage.org/"
: toPathPiece slug : toPathPiece slug
: map (cons '/') rest : map (cons '/') rest
@ -49,5 +49,5 @@ getHaddockR slug rest
getHaddockBackupR :: [Text] -> Handler () getHaddockBackupR :: [Text] -> Handler ()
getHaddockBackupR rest = redirect $ concat getHaddockBackupR rest = redirect $ concat
$ "http://haddock.stackage.org" $ "https://s3.amazonaws.com/haddock.stackage.org"
: map (cons '/') rest : map (cons '/') rest