Mercurial > urweb

annotate demo/refFun.urs @ 1665:f9ffe8497742

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix channel delivery to handle sending of messages for channels whose clients haven't connected yet
author Adam Chlipala <adam@chlipala.net>
date Sun, 08 Jan 2012 15:47:05 -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