Skip to content
Snippets Groups Projects
Commit fd360f00 authored by Benno Fünfstück's avatar Benno Fünfstück
Browse files

Fix compile error on older ghc releases

parent f5d9221f
No related branches found
No related tags found
No related merge requests found
......@@ -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"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment