diff options
| author | David Waern <david.waern@gmail.com> | 2010-05-13 20:05:50 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-05-13 20:05:50 +0000 |
| commit | 94335867d636db9ad6c111705283ec10c9ee1167 (patch) | |
| tree | 37352d4abe829bb848cf5a8cf538c135024d587e /src/Haddock/Backends/DevHelp.hs | |
| parent | 9dc3aeef7388cb962a2d021d9e119c586fc18068 (diff) | |
Get rid of H.Utils.pathJoin and use System.FilePath.joinPath instead
Diffstat (limited to 'src/Haddock/Backends/DevHelp.hs')
| -rw-r--r-- | src/Haddock/Backends/DevHelp.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 "</functions>" $$ text "</book>" - writeFile (pathJoin [odir, devHelpFile]) (render doc) + writeFile (joinPath [odir, devHelpFile]) (render doc) where package = fromMaybe "pkg" maybe_package |