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