diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-04-29 16:23:03 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-04-29 16:23:03 -0400 |
| commit | 4546d4f252f70f87ee86ad2de85f4749171efbfb (patch) | |
| tree | bb0d6410bfb789b781a6d36be791f0fe1f3fe0cb /src/compiler.sml | |
| parent | 05b7d79819dd5f006527bef7679b06868b3e0da7 (diff) | |
'urweb daemon start' and 'urweb daemon stop'
Diffstat (limited to 'src/compiler.sml')
| -rw-r--r-- | src/compiler.sml | 5 |
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) => |