diff options
Diffstat (limited to 'src/sql.sml')
-rw-r--r-- | src/sql.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/sql.sml b/src/sql.sml index dfe2f968..e8e82196 100644 --- a/src/sql.sml +++ b/src/sql.sml @@ -193,7 +193,7 @@ val uw_ident = wrapP ident (fn s => if String.isPrefix "uw_" s andalso size s >= SOME (str (Char.toUpper (String.sub (s, 3))) ^ String.extract (s, 4, NONE)) else - NONE) + SOME s) val field = wrap (follow (opt (follow t_ident (const "."))) uw_ident) |