[Gtk2hs-commit] Fix use of createDirectoryIfMissing

[Duncan C. <dun...@wo...>]

Thu Oct 26 08:24:34 PDT 2006  Duncan Coutts <du...@co...>
  * Fix use of createDirectoryIfMissing

    hunk ./tools/apiGen/ApiGen.hs 23
    -import Directory (doesDirectoryExist, createDirectory)
    hunk ./tools/apiGen/ApiGen.hs 189
    -              Just moduleInfo -> do createDirectoryIfMissing True
    -                                      outdir (splitOn '.' (module_prefix moduleInfo))
    +              Just moduleInfo -> do let modulePrefixToPath = map dotToPath
    +                                        dotToPath '.' = '/'
    +                                        dotToPath  c  =  c
    +                                    createDirectoryIfMissing True
    +                                      (outdir ++ '/' : modulePrefixToPath (module_prefix moduleInfo))