Mercurial > urweb

comparison src/mod_db.sml @ 1757:b6c4b3484752

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
In incremental elaboration, handle invalidated FFI signatures
author Adam Chlipala <adam@chlipala.net>
date Wed, 09 May 2012 08:53:10 -0400
parents 78d7cc9c9b18
children d6b0ee53dc93
comparison
equal deleted inserted replaced
1756:f69174d0abc0 1757:b6c4b3484752
107 byName := SM.insert (SM.filter (fn r => if SS.member (#Deps r, x) then 107 byName := SM.insert (SM.filter (fn r => if SS.member (#Deps r, x) then
108 case #1 (#Decl r) of 108 case #1 (#Decl r) of
109 DStr (_, n', _, _) => 109 DStr (_, n', _, _) =>
110 (byId := #1 (IM.remove (!byId, n')); 110 (byId := #1 (IM.remove (!byId, n'));
111 false) 111 false)
112 | DFfiStr (_, n', _) =>
113 (byId := #1 (IM.remove (!byId, n'));
114 false)
112 | _ => raise Fail "ModDb: Impossible decl" 115 | _ => raise Fail "ModDb: Impossible decl"
113 else 116 else
114 true) (!byName), 117 true) (!byName),
115 x, 118 x,
116 {Decl = d, 119 {Decl = d,