Create the directories if they don't exist

Registry/registry2mulhtml.hs

@@ -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"
 
@@ -32,5 +34,7 @@ main = do
   let theregistry = getRegistry input
   foreach ["language", "script", "region", "variant", 
                          "redundant", "grandfathered"]
-          (toHTMLFiles theregistry) 
+    (\arg ->
+       createDirectoryIfMissing True (outdir ++ "/" ++ arg) >>
+       toHTMLFiles theregistry arg)