HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 elems = foldr (fn (piece, elems) =>
let
val elems = piece :: elems
- val path = String.concatWith "/" (Config.
config
Root :: rev elems)
+ val path = String.concatWith "/" (Config.
result
Root :: rev elems)
in
(if Posix.FileSys.ST.isDir
(Posix.FileSys.stat path) then
in
(if Posix.FileSys.ST.isDir
(Posix.FileSys.stat path) then
@@
-83,7
+83,7
@@
fun getPath domain =
elems
end) [] toks
in
elems
end) [] toks
in
- String.concatWith "/" (Config.
config
Root :: rev ("" :: elems))
+ String.concatWith "/" (Config.
result
Root :: rev ("" :: elems))
end
val _ = Env.container_one "domain"
end
val _ = Env.container_one "domain"