diff options
| -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)) |