X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/325285ab74fb24bf441fa8137556accc3a518905..559e89e9adf62c5faeb0e78e6b9fb8fe107b8c72:/src/domain.sml diff --git a/src/domain.sml b/src/domain.sml index da18f22..27bc806 100644 --- a/src/domain.sml +++ b/src/domain.sml @@ -547,9 +547,9 @@ val () = Env.registerPost (fn () => if !ErrorMsg.anyErrors then () else - Slave.handleChanges (map #2 diffs)(*; + Slave.handleChanges (map #2 diffs); ignore (Slave.shellF ([Config.rm, " -rf ", Config.tmpDir, ""], - fn cl => "Temp file cleanup failed: " ^ cl))*) + fn cl => "Temp file cleanup failed: " ^ cl)) end)