From 94335867d636db9ad6c111705283ec10c9ee1167 Mon Sep 17 00:00:00 2001 From: David Waern Date: Thu, 13 May 2010 20:05:50 +0000 Subject: Get rid of H.Utils.pathJoin and use System.FilePath.joinPath instead --- src/Haddock/Backends/DevHelp.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Haddock/Backends/DevHelp.hs') diff --git a/src/Haddock/Backends/DevHelp.hs b/src/Haddock/Backends/DevHelp.hs index c42f494a..4028890d 100644 --- a/src/Haddock/Backends/DevHelp.hs +++ b/src/Haddock/Backends/DevHelp.hs @@ -20,6 +20,7 @@ import Name ( Name, nameModule, getOccString, nameOccName ) import Data.Maybe ( fromMaybe ) import qualified Data.Map as Map +import System.FilePath import Text.PrettyPrint ppDevHelpFile :: FilePath -> String -> Maybe String -> [Interface] -> IO () @@ -37,7 +38,7 @@ ppDevHelpFile odir doctitle maybe_package ifaces = do nest 4 (ppList index) $+$ text "" $$ text "" - writeFile (pathJoin [odir, devHelpFile]) (render doc) + writeFile (joinPath [odir, devHelpFile]) (render doc) where package = fromMaybe "pkg" maybe_package -- cgit v1.2.3