ocaml-ormはオブジェクトをどのようにRDBに格納するのか？（その２） - Qiita

type t = { foo: string; bar: int64; xyz: char; } and x = { first: t; second: t; third: int; } with orm ( unique: t<xyz>, t<bar>; index: x<first,second> ) let s1 = { foo="hello"; bar=100L; xyz='a' } let s2 = { foo="world"; bar=200L; xyz='z' } let x = { first=s1; second=s2; third=111 } sqlite> .tables __links__ __types__ t x sqlite> .schema CREATE TABLE __links__ (parent TEXT, field TEXT, child TEXT