Add end_in_slash and use it to fix moinMoin; do extra reduction during evaluation

[hcoop/domtool2.git] / lib / domain.dtl

diff --git a/lib/domain.dtl b/lib/domain.dtl
index 2b17089..3d9b088 100644 (file)
--- a/lib/domain.dtl
+++ b/lib/domain.dtl
@@ -43,6 +43,8 @@ extern type your_path;
 {{A filesystem path that you're allowed to write to.
   The set of permitted values is generated from a set of roots by closing it
   under the subdirectory relation.}}
+extern val end_in_slash : your_path -> your_path;
+{{Add a slash at the end of a path, if there isn't one already.}}
 
 extern type readable_path;
 {{Like [your_path], but also includes some paths that everyone is allowed to