First support for new Apache log scheme

[hcoop/domtool2.git] / src / slave.sml

diff --git a/src/slave.sml b/src/slave.sml
index af8b606..44af4b3 100644 (file)
--- a/src/slave.sml
+++ b/src/slave.sml
@@ -200,4 +200,6 @@ fun inGroup {user, group} =
                (Posix.SysDB.Group.members (Posix.SysDB.getgrnam group))
                handle OS.SysErr _ => false
 
+fun mkDirAll dir = ignore (OS.Process.system ("mkdir -p " ^ dir))
+
 end