Compare commits
2 Commits
9daaa43de2
...
1d75ff5e5e
Author | SHA1 | Date |
---|---|---|
Stephane Bortzmeyer | 1d75ff5e5e | |
Stephane Bortzmeyer | c70895fc5f |
|
@ -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)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue