git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Merge pull request #1109 from hdgarrood/psc-docs-parent-dirs

psc-docs: Create parent directories if missing.

commit918997a232ffceccc017366525453583f060ab02 authorPhil Freeman <paf31@cantab.net> dateFri 8 May 2015, 10:41 (11 years ago) parent9bd56d9c538050
2 files changed+6−2
compare with golang
unifiedsplit
psc-docs/Main.hs+4−1 purescript.cabal+2−1
psc-docs/Main.hs+4−1
@@ -30,6 +30,8 @@ import qualified Language.PureScript as P
3030import qualified Paths_purescript as Paths
3131import System.Exit (exitFailure)
3232import System.IO (hPutStrLn, stderr)
33+import System.Directory (createDirectoryIfMissing)
34+import System.FilePath (takeDirectory)
3335
3436import Etags
3537import Ctags
@@ -84,7 +86,8 @@ docgen (PSCDocsOptions fmt input output) =
8486 ToFiles names -> do
8587 let (ms, missing) = takeModulesByName' ms' names
8688 guardMissing missing
87− forM_ ms $ \(m, fp) ->
89+ forM_ ms $ \(m, fp) -> do
90+ createDirectoryIfMissing True (takeDirectory fp)
8891 writeFile fp (D.renderModulesAsMarkdown [m])
8992
9093 where
purescript.cabal+2−1
@@ -179,7 +179,8 @@ executable psci
179179executable psc-docs
180180 build-depends: base >=4 && <5, purescript -any,
181181 optparse-applicative >= 0.10.0, process -any, mtl -any,
182− split -any, ansi-wl-pprint -any
182+ split -any, ansi-wl-pprint -any, directory -any, filepath
183+ -any
183184 main-is: Main.hs
184185 buildable: True
185186 hs-source-dirs: psc-docs