Working on automatic rmdom for bad domains during regen

[hcoop/domtool2.git] / src / plugins / webalizer.sml

diff --git a/src/plugins/webalizer.sml b/src/plugins/webalizer.sml
index 034e043..416460d 100644 (file)
--- a/src/plugins/webalizer.sml
+++ b/src/plugins/webalizer.sml
@@ -77,7 +77,7 @@ val () = Slave.registerFileHandler (fn fs =>
                                                                           file = base}
                                               in
                                                   case #action fs of
-                                                      Slave.Delete =>
+                                                      Slave.Delete _ =>
                                                       (ignore (OS.Process.system (Config.rm
                                                                                   ^ " -f "
                                                                                   ^ Config.Webalizer.configDir