From 7db1e96d9ce6e5ea4af707cb967b20d3f1cd808f Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Thu, 22 Sep 2016 10:10:54 +0300 Subject: [PATCH] Add @hvr's mirror --- Handler/MirrorStatus.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Handler/MirrorStatus.hs b/Handler/MirrorStatus.hs index 15b5572..711ffb6 100644 --- a/Handler/MirrorStatus.hs +++ b/Handler/MirrorStatus.hs @@ -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