let kind_of_type = function
| SQL_db.TinyInt _ -> SQL_TinyInt
| SQL_db.MediumInt _ -> SQL_MediumInt
| SQL_db.Int _ -> SQL_Int
| SQL_db.BigInt _ -> SQL_BigInt
| SQL_db.Double _ -> SQL_Double
| SQL_db.Float _ -> SQL_Float
| SQL_db.Decimal _ -> SQL_Decimal
| SQL_db.Char _ -> SQL_Char
| SQL_db.VarChar _ -> SQL_VarChar
| SQL_db.TinyBlob -> SQL_TinyBlob
| SQL_db.Blob -> SQL_Blob
| SQL_db.MediumBlob -> SQL_MediumBlob
| SQL_db.LongBlob -> SQL_LongBlob
| SQL_db.TinyText -> SQL_TinyText
| SQL_db.Text -> SQL_Text
| SQL_db.MediumText -> SQL_MediumText
| SQL_db.LongText -> SQL_LongText