git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
psc-docs: Create parent directories if missing.
c538050Harry Garrood
psc-docs/Main.hs+4−1
compare with golang
unifiedsplit
@@ -30,6 +30,8 @@ import qualified Language.PureScript as P
30import qualified Paths_purescript as Paths
30import qualified Paths_purescript as Paths
31import System.Exit (exitFailure)
31import System.Exit (exitFailure)
32import System.IO (hPutStrLn, stderr)
32import System.IO (hPutStrLn, stderr)
33+import System.Directory (createDirectoryIfMissing)
34+import System.FilePath (takeDirectory)
33
35
34import Etags
36import Etags
35import Ctags
37import Ctags
@@ -84,7 +86,8 @@ docgen (PSCDocsOptions fmt input output) =
84 ToFiles names -> do
86 ToFiles names -> do
85 let (ms, missing) = takeModulesByName' ms' names
87 let (ms, missing) = takeModulesByName' ms' names
86 guardMissing missing
88 guardMissing missing
87− forM_ ms $ \(m, fp) ->
89+ forM_ ms $ \(m, fp) -> do
90+ createDirectoryIfMissing True (takeDirectory fp)
88 writeFile fp (D.renderModulesAsMarkdown [m])
91 writeFile fp (D.renderModulesAsMarkdown [m])
89
92
90 where
93 where
purescript.cabal+2−1
@@ -179,7 +179,8 @@ executable psci
179executable psc-docs
179executable psc-docs
180 build-depends: base >=4 && <5, purescript -any,
180 build-depends: base >=4 && <5, purescript -any,
181 optparse-applicative >= 0.10.0, process -any, mtl -any,
181 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
183 main-is: Main.hs
184 main-is: Main.hs
184 buildable: True
185 buildable: True
185 hs-source-dirs: psc-docs
186 hs-source-dirs: psc-docs