Dependency ordering

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

diff --git a/src/domain.sml b/src/domain.sml
index 99152ea..4ec6f55 100644 (file)
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -71,7 +71,7 @@ fun getPath domain =
        val elems = foldr (fn (piece, elems) =>
                              let
                                  val elems = piece :: elems
-                                 val path = String.concatWith "/" (Config.configRoot :: rev elems)
+                                 val path = String.concatWith "/" (Config.resultRoot :: rev elems)
                              in
                                  (if Posix.FileSys.ST.isDir
                                          (Posix.FileSys.stat path) then
@@ -83,7 +83,7 @@ fun getPath domain =
                                  elems
                              end) [] toks
     in
-       String.concatWith "/" (Config.configRoot :: rev ("" :: elems))
+       String.concatWith "/" (Config.resultRoot :: rev ("" :: elems))
     end
 
 val _ = Env.container_one "domain"