From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 16 Dec 2006 01:08:19 +0000 (+0000)
Subject: Fix file paths for recursive rmdom
X-Git-Tag: release_2010-11-19~292
X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/commitdiff_plain/77a8fca278b561808959fa1aa7d9f02c5cfe7720

Fix file paths for recursive rmdom
---

diff --git a/src/domain.sml b/src/domain.sml
index 9234c7c..ca2f993 100644
--- 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