yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Properly generate directory structure

Browse source
This commit is contained in:
Evan Czaplicki 2013-09-05 10:55:30 -07:00
parent ae5ef9db97
commit 0976355fac
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
compiler/Docs.hs
View file

@ -41,9 +41,9 @@ parseFile path = do
case iParse docs "" source of
Right json -> do
putStrLn $ "Documenting " ++ path
createDirectoryIfMissing True "docs"
BS.writeFile ("docs" </> replaceExtension path ".json")
(encodePretty' (defConfig { confIndent = 2 }) json)
let docPath = "docs" </> replaceExtension path ".json"
createDirectoryIfMissing True (dropFileName docPath)
BS.writeFile docPath (encodePretty' (defConfig { confIndent = 2 }) json)
Left err -> do
putStrLn $ "Parse error in " ++ path ++ " at " ++ show err
exitFailure