From 7faa71bc7b3c47bba45683a20075dc49b76a05b4 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 29 Sep 2010 21:15:38 +0000 Subject: Fix URL creation on Windows: Use / not \ in URLs. Fixes #4353 --- src/Haddock/Utils.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Haddock/Utils.hs') diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs index 60ee799d..e3d1e13e 100644 --- a/src/Haddock/Utils.hs +++ b/src/Haddock/Utils.hs @@ -74,7 +74,7 @@ import System.Environment ( getProgName ) import System.Exit ( exitWith, ExitCode(..) ) import System.IO ( hPutStr, stderr ) import System.IO.Unsafe ( unsafePerformIO ) -import System.FilePath +import qualified System.FilePath.Posix as HtmlPath import Distribution.Verbosity import Distribution.ReadE @@ -179,7 +179,7 @@ moduleHtmlFile :: Module -> FilePath moduleHtmlFile mdl = case Map.lookup mdl html_xrefs of Nothing -> mdl' ++ ".html" - Just fp0 -> joinPath [fp0, mdl' ++ ".html"] + Just fp0 -> HtmlPath.joinPath [fp0, mdl' ++ ".html"] where mdl' = map (\c -> if c == '.' then '-' else c) (moduleNameString (moduleName mdl)) -- cgit v1.2.3