From 4546d4f252f70f87ee86ad2de85f4749171efbfb Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sun, 29 Apr 2012 16:23:03 -0400
Subject: 'urweb daemon start' and 'urweb daemon stop'

---
 src/mod_db.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/mod_db.sml')

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 =>
-- 
cgit v1.2.3