diff --git a/cabal-install/Distribution/Client/Upload.hs b/cabal-install/Distribution/Client/Upload.hs
index b39217038fd952d1976c4a593b00ce0ca9433dfa..0122fe9b733d5297a67dbba863a393b27ab492a0 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"