From c3e132970ebf4b7f02f14c582cdd2552f604c970 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 17 Nov 2016 08:44:46 +0200
Subject: [PATCH] Remove Dreamhost from mirror list

---
 Handler/MirrorStatus.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Handler/MirrorStatus.hs b/Handler/MirrorStatus.hs
index a7c4b75..10aa0ad 100644
--- a/Handler/MirrorStatus.hs
+++ b/Handler/MirrorStatus.hs
@@ -45,9 +45,12 @@ mkUpdateMirrorStatus = mkAutoUpdate defaultUpdateSettings
             , "http://hackage.fpcomplete.com/01-index.tar.gz"
             ]
         otherMods <- mapM getLastModifiedHTTP
+            []
+            {- Dreamhost S3 is far too unstable
             [ "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 ++ otherMods
             biggestDiff = Prelude.maximum $ map