X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/de5351c7e5e91a5a055127e7294419c64a1c74df..e9f528ab975ac28c16b2c370e69206a48f584d78:/src/plugins/apache.sml

diff --git a/src/plugins/apache.sml b/src/plugins/apache.sml
index 62615af..f36bfa4 100644
--- a/src/plugins/apache.sml
+++ b/src/plugins/apache.sml
@@ -383,6 +383,9 @@ fun registerPost f =
 	post := (fn () => (old (); f ()))
     end
 
+fun doPre x = !pre x
+fun doPost () = !post ()
+
 val aliaser = ref (fn _ : string => ())
 fun registerAliaser f =
     let