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