adamc@419: functor Make(M : sig
adamc@419:                  type data
adamc@419:                  val inj : sql_injectable data
adamc@419:              end) : sig
adamc@419:     type ref
adamc@419:     val new : M.data -> transaction ref
adamc@419:     val read : ref -> transaction M.data
adamc@419:     val write : ref -> M.data -> transaction unit
adamc@419:     val delete : ref -> transaction unit
adamc@419: end