Mercurial > urweb

annotate demo/refFun.urs @ 597:d49d58a69877

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Injected a non-special-case datatype
author Adam Chlipala <adamc@hcoop.net>
date Thu, 08 Jan 2009 10:30:14 -0500
parents cb5897276abf
children
rev   line source
adamc@419 1 functor Make(M : sig
adamc@419 2 type data
adamc@419 3 val inj : sql_injectable data
adamc@419 4 end) : sig
adamc@419 5 type ref
adamc@419 6 val new : M.data -> transaction ref
adamc@419 7 val read : ref -> transaction M.data
adamc@419 8 val write : ref -> M.data -> transaction unit
adamc@419 9 val delete : ref -> transaction unit
adamc@419 10 end