(fn () => (EVar "true", dl))),
("PhpVersion",
(TBase "php_version", dl),
- (fn () => (EVar "php4", dl)))]
+ (fn () => (EVar "php5", dl)))]
val () = app Defaults.registerDefault defaults
write "</VirtualHost>\n";
app (TextIO.closeOut o #2) (!vhostFiles))
-val php_version = fn (EVar "php4", _) => SOME 4
- | (EVar "php5", _) => SOME 5
+val php_version = fn (EVar "php5", _) => SOME 5
| _ => NONE
fun vhostBody (env, makeFullHost) =