Merge pull request purescript#1109 from hdgarrood/psc-docs-parent-dirs

paf31 · paf31 · commit 918997a232ff · 2015-05-08T10:41:29.000-07:00
psc-docs: Create parent directories if missing.
diff --git a/psc-docs/Main.hs b/psc-docs/Main.hs
@@ -30,6 +30,8 @@ import qualified Language.PureScript as P
 import qualified Paths_purescript as Paths
 import System.Exit (exitFailure)
 import System.IO (hPutStrLn, stderr)
+import System.Directory (createDirectoryIfMissing)
+import System.FilePath (takeDirectory)
 
 import Etags
 import Ctags
@@ -84,7 +86,8 @@ docgen (PSCDocsOptions fmt input output) =
             ToFiles names -> do
               let (ms, missing) = takeModulesByName' ms' names
               guardMissing missing
-              forM_ ms $ \(m, fp) ->
+              forM_ ms $ \(m, fp) -> do
+                createDirectoryIfMissing True (takeDirectory fp)
                 writeFile fp (D.renderModulesAsMarkdown [m])
 
   where
diff --git a/purescript.cabal b/purescript.cabal
@@ -179,7 +179,8 @@ executable psci
 executable psc-docs
     build-depends: base >=4 && <5, purescript -any,
                    optparse-applicative >= 0.10.0, process -any, mtl -any,
-                   split -any, ansi-wl-pprint -any
+                   split -any, ansi-wl-pprint -any, directory -any, filepath
+                   -any
     main-is: Main.hs
     buildable: True
     hs-source-dirs: psc-docs
