haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-29 20:30:25 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix a build failure

Browse Source 
Pinging @DanBurton @chrisdone
This commit is contained in:
Michael Snoyman 2015-03-19 13:45:32 +02:00
parent 706a977e19
commit ec57908a63
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Handler/StackageHome.hs
View File

@ -130,23 +130,23 @@ getStackageCabalConfigR slug = do
headerGlobal render = yield $ Chunk $ headerGlobal render = yield $ Chunk $
toBuilder (asText "-- Stackage snapshot from: ") ++ 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 (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 (toPathPiece slug) ++
toBuilder ':' ++ toBuilder ':' ++
toBuilder snapshotUrl ++ toBuilder (snapshotUrl render) ++
toBuilder '\n' toBuilder '\n'
headerLocal render = yield $ Chunk $ headerLocal render = yield $ Chunk $
toBuilder (asText "-- Stackage snapshot from: ") ++ 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 (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 (toPathPiece slug) ++
toBuilder ':' ++ toBuilder ':' ++
toBuilder snapshotUrl ++ toBuilder (snapshotUrl render) ++
toBuilder '\n' toBuilder '\n'
snapshotUrl = asHttp $ render $ SnapshotR slug StackageHomeR snapshotUrl render = asHttp $ render $ SnapshotR slug StackageHomeR
asHttp (stripPrefix "http://" -> Just s) = "http://" <> s asHttp (stripPrefix "http://" -> Just s) = "http://" <> s
asHttp (stripPrefix "https://" -> Just s) = "http://" <> s asHttp (stripPrefix "https://" -> Just s) = "http://" <> s