From 47506d9ecd8f1e40573dda2b8a7a2bf4be58e0ff Mon Sep 17 00:00:00 2001 From: Dan Burton Date: Mon, 1 Jun 2015 16:26:19 -0700 Subject: [PATCH] Quick fix to allow old versions of stackage-sandbox to continue working --- Handler/StackageHome.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Handler/StackageHome.hs b/Handler/StackageHome.hs index fc8f75e..d86fbc6 100644 --- a/Handler/StackageHome.hs +++ b/Handler/StackageHome.hs @@ -55,7 +55,7 @@ getStackageCabalConfigR name = do headerGlobal render = yield $ Chunk $ toBuilder (asText "-- Stackage snapshot from: ") ++ - toBuilder (snapshotUrl render) ++ + toBuilder (oldSnapshotUrl render) ++ toBuilder (asText "\n-- Please place these contents in your global cabal config file.\n-- To only use tested packages, uncomment the following line\n-- and comment out other remote-repo lines:\n-- remote-repo: stackage-") ++ toBuilder (toPathPiece name) ++ toBuilder ':' ++ @@ -64,13 +64,14 @@ getStackageCabalConfigR name = do headerLocal render = yield $ Chunk $ toBuilder (asText "-- Stackage snapshot from: ") ++ - toBuilder (snapshotUrl render) ++ + toBuilder (oldSnapshotUrl render) ++ toBuilder (asText "\n-- Please place this file next to your .cabal file as cabal.config\n-- To only use tested packages, uncomment the following line:\n-- remote-repo: stackage-") ++ toBuilder (toPathPiece name) ++ toBuilder ':' ++ toBuilder (snapshotUrl render) ++ toBuilder '\n' + oldSnapshotUrl render = asHttp $ render $ OldSnapshotR (toPathPiece name) [] snapshotUrl render = asHttp $ render $ SnapshotR name StackageHomeR asHttp (stripPrefix "http://" -> Just s) = "http://" <> s