Mercurial > urweb

comparison src/monoize.sml @ 2004:67a6ba016a78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix a bug in GROUP BY generation [keeping within today's release]
author Adam Chlipala <adam@chlipala.net>
date Sat, 26 Apr 2014 11:15:21 -0400
parents 0992323fa264
children 93ff76058825
comparison
equal deleted inserted replaced
2003:8e45bb2c9046 2004:67a6ba016a78
2129 sc " GROUP BY ", 2129 sc " GROUP BY ",
2130 strcatComma (map (fn (x, xts) => 2130 strcatComma (map (fn (x, xts) =>
2131 strcatComma 2131 strcatComma
2132 (map (fn (x', _) => 2132 (map (fn (x', _) =>
2133 sc ("T_" ^ x 2133 sc ("T_" ^ x
2134 ^ "" 2134 ^ "."
2135 ^ Settings.mangleSql x')) 2135 ^ Settings.mangleSql x'))
2136 xts)) grouped) 2136 xts)) grouped)
2137 ], 2137 ],
2138 2138
2139 (L'.ECase (gf "Having", 2139 (L'.ECase (gf "Having",