Mercurial > urweb

comparison src/tag.sml @ 117:94856a3b4752

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Serving pages
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Jul 2008 15:44:00 -0400
parents 690d72c92a15
children 7fdc146b2bc2
comparison
equal deleted inserted replaced
116:c5d7ce9ddd57 117:94856a3b4752
98 byTag) 98 byTag)
99 99
100 val e = (EClosure (cn, args), loc) 100 val e = (EClosure (cn, args), loc)
101 val t = (CFfi ("Basis", "string"), loc) 101 val t = (CFfi ("Basis", "string"), loc)
102 in 102 in
103 ((x, e, t), 103 (((CName "href", loc), e, t),
104 (count, tags, byTag, newTags)) 104 (count, tags, byTag, newTags))
105 end 105 end
106 | _ => ((x, e, t), (count, tags, byTag, newTags))) 106 | _ => ((x, e, t), (count, tags, byTag, newTags)))
107 s xets 107 s xets
108 in 108 in