Mercurial > urweb

comparison src/rpcify.sml @ 1695:385a1b799a74

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Handle recursive RPC handlers
author Adam Chlipala <adam@chlipala.net>
date Sun, 11 Mar 2012 21:20:09 -0400
parents 3cfc79f92db7
children e15234fbb163
comparison
equal deleted inserted replaced
1694:7b4abecadc38 1695:385a1b799a74
140 con = fn x => x, 140 con = fn x => x,
141 exp = exp, 141 exp = exp,
142 decl = fn x => x} 142 decl = fn x => x}
143 st d 143 st d
144 in 144 in
145 (#export_decls st @ [d], 145 (d :: #export_decls st,
146 {exported = #exported st, 146 {exported = #exported st,
147 export_decls = []}) 147 export_decls = []})
148 end 148 end
149 149
150 val (file, _) = ListUtil.foldlMapConcat decl 150 val (file, _) = ListUtil.foldlMapConcat decl