From 493c612cbd6bd53a57592ec806f5b1a924c4d839 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 28 Sep 2014 07:42:44 +0300
Subject: [PATCH] Switch to FP Complete Hackage mirror

---
 Data/Hackage.hs     | 6 +-----
 config/settings.yml | 2 +-
 2 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/Data/Hackage.hs b/Data/Hackage.hs
index 2ed0a48..f48ed87 100644
--- a/Data/Hackage.hs
+++ b/Data/Hackage.hs
@@ -169,11 +169,7 @@ sourceHackageSdist name version = do
             HackageRoot root <- liftM getHackageRoot ask
             let url = concat
                         [ root
-                        , "/"
-                        , toPathPiece name
-                        , "/"
-                        , toPathPiece version
-                        , "/"
+                        , "/package/"
                         , toPathPiece name
                         , "-"
                         , toPathPiece version
diff --git a/config/settings.yml b/config/settings.yml
index ed38ab4..f075343 100644
--- a/config/settings.yml
+++ b/config/settings.yml
@@ -2,7 +2,7 @@ Default: &defaults
   host: "*4" # any IPv4 host
   port: 3000
   approot: "http://localhost:3000"
-  hackage-root: http://hackage.haskell.org/packages/archive
+  hackage-root: http://hackage.fpcomplete.com
 
 Development:
   <<: *defaults