Mercurial > urweb

comparison src/cjr_print.sml @ 2241:2b1af5dc6dee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Ziv Scully <ziv@mit.edu>
date Sun, 19 Jul 2015 19:05:16 -0700
parents af1585e7d645 f55b0e45422f
children 6fb9232ade99
comparison
equal deleted inserted replaced
2240:88cc0f44c940 2241:2b1af5dc6dee
3670 string "(", 3670 string "(",
3671 p_list (fn (x, t) => 3671 p_list (fn (x, t) =>
3672 let 3672 let
3673 val t = sql_type_in env t 3673 val t = sql_type_in env t
3674 in 3674 in
3675 box [string "uw_", 3675 box [string (Settings.mangleSql (CharVector.map Char.toLower x)),
3676 string (CharVector.map Char.toLower x),
3677 space, 3676 space,
3678 string (#p_sql_type (Settings.currentDbms ()) t), 3677 string (#p_sql_type (Settings.currentDbms ()) t),
3679 case t of 3678 case t of
3680 Nullable _ => box [] 3679 Nullable _ => box []
3681 | _ => string " NOT NULL"] 3680 | _ => string " NOT NULL"]