Mercurial > urweb
comparison src/monoize.sml @ 2004:67a6ba016a78
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", |