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.Registry
|
||||
|
||||
import System.Directory (createDirectoryIfMissing)
|
||||
|
||||
infile = "./language-subtag-registry"
|
||||
outdir = "./registry-html"
|
||||
|
||||
|
@ -31,6 +33,8 @@ main = do
|
|||
input <- IO.hGetContents f
|
||||
let theregistry = getRegistry input
|
||||
foreach ["language", "script", "region", "variant",
|
||||
"redundant", "grandfathered"]
|
||||
(toHTMLFiles theregistry)
|
||||
"redundant", "grandfathered"]
|
||||
(\arg ->
|
||||
createDirectoryIfMissing True (outdir ++ "/" ++ arg) >>
|
||||
toHTMLFiles theregistry arg)
|
||||
|
||||
|
|
Loading…
Reference in New Issue