From fd360f0022040cd9038028a1c2e55f925d58bda9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Benno=20F=C3=BCnfst=C3=BCck?= <benno.fuenfstueck@gmail.com>
Date: Wed, 11 May 2016 11:52:12 +0200
Subject: [PATCH] Fix compile error on older ghc releases
---
cabal-install/Distribution/Client/Upload.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/cabal-install/Distribution/Client/Upload.hs b/cabal-install/Distribution/Client/Upload.hs
index b39217038f..0122fe9b73 100644
--- a/cabal-install/Distribution/Client/Upload.hs
+++ b/cabal-install/Distribution/Client/Upload.hs
@@ -60,7 +60,7 @@ upload verbosity repoCtxt mUsername mPassword candidate paths = do
else "upload"
}
packageURI pkgid = targetRepoURI {
- uriPath = rootIfEmpty (uriPath targetRepoURI) FilePath.Posix.</> mconcat
+ uriPath = rootIfEmpty (uriPath targetRepoURI) FilePath.Posix.</> concat
[ "package/", pkgid
, if candidate then "/candidate" else ""
]
@@ -89,7 +89,7 @@ uploadDoc verbosity repoCtxt mUsername mPassword candidate path = do
let targetRepoURI = remoteRepoURI targetRepo
rootIfEmpty x = if null x then "/" else x
uploadURI = targetRepoURI {
- uriPath = rootIfEmpty (uriPath targetRepoURI) FilePath.Posix.</> mconcat
+ uriPath = rootIfEmpty (uriPath targetRepoURI) FilePath.Posix.</> concat
[ "package/", pkgid
, if candidate then "/candidate" else ""
, "/docs"
--
GitLab