let string_of_type_options = fun ty ->
match ty with
| SQL_db.TinyInt (_, opt)
| SQL_db.MediumInt (_, opt)
| SQL_db.Int (_, opt)
| SQL_db.BigInt (_, opt)
-> Some (string_of_numeric_option opt)
| SQL_db.Double (_, opt)
| SQL_db.Float (_, opt)
| SQL_db.Decimal (_, opt)
-> Some (string_of_numeric_option opt)
| _ -> None