From ec57908a63deafb700def2e6e9d8651e1f886289 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Thu, 19 Mar 2015 13:45:32 +0200 Subject: [PATCH] Fix a build failure Pinging @DanBurton @chrisdone --- Handler/StackageHome.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Handler/StackageHome.hs b/Handler/StackageHome.hs index 47a7911..14f49b0 100644 --- a/Handler/StackageHome.hs +++ b/Handler/StackageHome.hs @@ -130,23 +130,23 @@ getStackageCabalConfigR slug = do headerGlobal render = yield $ Chunk $ toBuilder (asText "-- Stackage snapshot from: ") ++ - toBuilder snapshotUrl ++ + toBuilder (snapshotUrl 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 slug) ++ toBuilder ':' ++ - toBuilder snapshotUrl ++ + toBuilder (snapshotUrl render) ++ toBuilder '\n' headerLocal render = yield $ Chunk $ toBuilder (asText "-- Stackage snapshot from: ") ++ - toBuilder snapshotUrl ++ + toBuilder (snapshotUrl 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 slug) ++ toBuilder ':' ++ - toBuilder snapshotUrl ++ + toBuilder (snapshotUrl render) ++ toBuilder '\n' - snapshotUrl = asHttp $ render $ SnapshotR slug StackageHomeR + snapshotUrl render = asHttp $ render $ SnapshotR slug StackageHomeR asHttp (stripPrefix "http://" -> Just s) = "http://" <> s asHttp (stripPrefix "https://" -> Just s) = "http://" <> s