Don't use </> for URL construction. (#104)

As pointed out by #87. (However, Windows support is still not yet tested.)
judah · Aug 31, 2018 · 8eb3421 · 8eb3421
1 parent db12ab9
commit 8eb3421
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/Pier/Build/Package.hs b/src/Pier/Build/Package.hs
@@ -29,7 +29,7 @@ downloadCabalPackage pkg = do
     askDownload Download
         { downloadFilePrefix = "hackage"
         , downloadName = n <.> "tar.gz"
-        , downloadUrlPrefix = "https://hackage.haskell.org/package" </> n
+        , downloadUrlPrefix = "https://hackage.haskell.org/package/" ++ n
         }
 
 getPackageSourceDir :: PackageIdentifier -> Action Artifact

diff --git a/src/Pier/Core/Download.hs b/src/Pier/Core/Download.hs
@@ -24,8 +24,8 @@ import Pier.Core.Directory
 import Pier.Core.Persistent
 import Pier.Core.Run
 
--- | Downloads @downloadUrlPrefix </> downloadName@ to
--- @downloadFilePrefix </> downloadName@.
+-- | Downloads @downloadUrlPrefix / downloadName@ to
+-- @downloadFilePrefix / downloadName@.
 -- Everything is stored in `~/.pier/downloads`.
 data Download = Download
     { downloadUrlPrefix :: String
@@ -66,7 +66,7 @@ downloadRules loc = do
             (createPierTempFile $ takeFileName $ downloadName d)
             Directory.removeFile
             $ \tmp -> do
-                        let url = downloadUrlPrefix d </> downloadName d
+                        let url = downloadUrlPrefix d ++ "/" ++ downloadName d
                         req <- parseRequest url
                         resp <- httpLbs req manager
                         unless (statusIsSuccessful . responseStatus $ resp)