Fix file paths for recursive rmdom

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

diff --git a/src/domain.sml b/src/domain.sml
index 9234c7c..ca2f993 100644 (file)
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -684,7 +684,7 @@ fun rmdom dom =
                                        loop ({action = Slave.Delete,
                                               domain = dom,
                                               dir = dname,
-                                              file = fname} :: actions)
+                                              file = fnameFull} :: actions)
                                end
                    in
                        loop actions