diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-09-29 21:15:38 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-09-29 21:15:38 +0000 |
| commit | 7faa71bc7b3c47bba45683a20075dc49b76a05b4 (patch) | |
| tree | 12e8e1277164adc6aa8dd99af582832bf6ef7218 /src/Haddock/Utils.hs | |
| parent | efa3ddb87e4f9e3b1efc5fc2161bcad53dc7016a (diff) | |
Fix URL creation on Windows: Use / not \ in URLs. Fixes #4353
Diffstat (limited to 'src/Haddock/Utils.hs')
| -rw-r--r-- | src/Haddock/Utils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |