summaryrefslogtreecommitdiff
path: root/src/compiler.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2012-04-29 16:23:03 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2012-04-29 16:23:03 -0400
commitafe1283c06964e8f53b9a9254d7f8bcbd9cbe720 (patch)
treebb0d6410bfb789b781a6d36be791f0fe1f3fe0cb /src/compiler.sml
parent47202985bda927a7504ee484565ebd2ff0e55963 (diff)
'urweb daemon start' and 'urweb daemon stop'
Diffstat (limited to 'src/compiler.sml')
-rw-r--r--src/compiler.sml5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/compiler.sml b/src/compiler.sml
index c30c2a04..575d95c7 100644
--- a/src/compiler.sml
+++ b/src/compiler.sml
@@ -917,7 +917,7 @@ val parse = {
val sgn = (Source.SgnConst (#func parseUrs urs), loc)
in
checkErrors ();
- (Source.DFfiStr (mname, sgn, OS.FileSys.modTime urs), loc)
+ (Source.DFfiStr (mname, sgn, if !Elaborate.incremental then SOME (OS.FileSys.modTime urs) else NONE), loc)
end
val defed = ref SS.empty
@@ -944,7 +944,8 @@ val parse = {
last = ErrorMsg.dummyPos}
val ds = #func parseUr ur
- val d = (Source.DStr (mname, sgnO, SOME (OS.FileSys.modTime ur), (Source.StrConst ds, loc)), loc)
+ val d = (Source.DStr (mname, sgnO, if !Elaborate.incremental then SOME (OS.FileSys.modTime ur) else NONE,
+ (Source.StrConst ds, loc)), loc)
val fname = OS.Path.mkCanonical fname
val d = case List.find (fn (root, name) =>