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/mod_db.sml | |
| parent | 05b7d79819dd5f006527bef7679b06868b3e0da7 (diff) | |
'urweb daemon start' and 'urweb daemon stop'
Diffstat (limited to 'src/mod_db.sml')
| -rw-r--r-- | src/mod_db.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/mod_db.sml b/src/mod_db.sml index ba9bcc3a..22c11183 100644 --- a/src/mod_db.sml +++ b/src/mod_db.sml @@ -131,7 +131,7 @@ fun lookup (d : Source.decl) = SOME (#Decl r) else NONE) - | Source.DFfiStr (x, _, tm) => + | Source.DFfiStr (x, _, SOME tm) => (case SM.find (!byName, x) of NONE => NONE | SOME r => |