diff src/mod_db.sml @ 1868:d6b0ee53dc93

Get -root working properly again
author Adam Chlipala <adam@chlipala.net>
date Thu, 26 Sep 2013 16:22:06 -0400
parents b6c4b3484752
children
line wrap: on
line diff
--- a/src/mod_db.sml	Fri Sep 13 10:24:10 2013 -0400
+++ b/src/mod_db.sml	Thu Sep 26 16:22:06 2013 -0400
@@ -126,7 +126,7 @@
 
 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 =>