bortzmeyer/GaBuZoMeu
1
0
Fork 1
Code Issues 7 Pull Requests Projects Releases Wiki Activity

Create the directories if they don't exist

Browse Source
This commit is contained in:
Stephane Bortzmeyer 2023-06-12 21:35:43 +02:00
parent 27032718f5
commit c70895fc5f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Registry/registry2mulhtml.hs
View File

@ -4,6 +4,8 @@ import Registry.Utils
import Registry.Grammar (registry) import Registry.Grammar (registry)
import Registry.Registry import Registry.Registry
import System.Directory (createDirectoryIfMissing)
infile = "./language-subtag-registry" infile = "./language-subtag-registry"
outdir = "./registry-html" outdir = "./registry-html"
@ -31,6 +33,8 @@ main = do
input <- IO.hGetContents f input <- IO.hGetContents f
let theregistry = getRegistry input let theregistry = getRegistry input
foreach ["language", "script", "region", "variant", foreach ["language", "script", "region", "variant",
"redundant", "grandfathered"] "redundant", "grandfathered"]
(toHTMLFiles theregistry) (\arg ->
createDirectoryIfMissing True (outdir ++ "/" ++ arg) >>
toHTMLFiles theregistry arg)