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

Add @hvr's mirror

Browse Source
This commit is contained in:
Michael Snoyman 2016-09-22 10:10:54 +03:00
parent e53b6f50b2
commit 7db1e96d9c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Handler/MirrorStatus.hs
View File

@ -44,8 +44,12 @@ mkUpdateMirrorStatus = mkAutoUpdate defaultUpdateSettings
[ "http://hackage.fpcomplete.com/00-index.tar.gz"
, "http://hackage.fpcomplete.com/01-index.tar.gz"
]
otherMods <- mapM getLastModifiedHTTP
[ "http://objects-us-west-1.dream.io/hackage-mirror/01-index.tar.gz"
, "http://objects-us-west-1.dream.io/hackage-mirror/timestamp.json"
]
let nonHackageMods = gitMods ++ tarballMods
allMods = ("Hackage", hackageTime) : nonHackageMods
allMods = ("Hackage", hackageTime) : nonHackageMods ++ otherMods
biggestDiff = Prelude.maximum $ map
(\(_, other) -> diffUTCTime hackageTime other)
nonHackageMods