Mercurial > urweb

comparison src/mod_db.sml @ 1733:ab24a7cb2a64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
'urweb daemon start' and 'urweb daemon stop'
author Adam Chlipala <adam@chlipala.net>
date Sun, 29 Apr 2012 16:23:03 -0400
parents 4a03aa3251cb
children 78d7cc9c9b18
comparison
equal deleted inserted replaced
1732:4a03aa3251cb 1733:ab24a7cb2a64
129 | SOME r => 129 | SOME r =>
130 if tm = #When r then 130 if tm = #When r then
131 SOME (#Decl r) 131 SOME (#Decl r)
132 else 132 else
133 NONE) 133 NONE)
134 | Source.DFfiStr (x, _, tm) => 134 | Source.DFfiStr (x, _, SOME tm) =>
135 (case SM.find (!byName, x) of 135 (case SM.find (!byName, x) of
136 NONE => NONE 136 NONE => NONE
137 | SOME r => 137 | SOME r =>
138 if tm = #When r then 138 if tm = #When r then
139 SOME (#Decl r) 139 SOME (#Decl r)