From 71cc64ad35debb1950827e4be6c6a3d5cfc216fc Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Thu, 26 Sep 2013 16:22:06 -0400
Subject: Get -root working properly again

---
 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 6c89c114..2d6b285b 100644
--- a/src/mod_db.sml
+++ b/src/mod_db.sml
@@ -126,7 +126,7 @@ fun insert (d, tm) =
 
 fun lookup (d : Source.decl) =
     case #1 d of
-        Source.DStr (x, _, SOME tm, _) =>
+        Source.DStr (x, _, SOME tm, _, _) =>
         (case SM.find (!byName, x) of
              NONE => NONE
            | SOME r =>
-- 
cgit v1.2.3