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