signature POLL = sig
- type poll = {id : int, usr : int, title : string, descr : string, starts : string, ends : string, votes : int, official : bool}
+ type poll = {id : int, usr : int, title : string, descr : string, starts : string, ends : string, votes : int, official : bool, ready : bool}
val lookupPoll : int -> poll
val listPolls : unit -> poll list
val listCurrentPolls : unit -> poll list
val listPollsLimit : int -> poll list
- val addPoll : int * string * string * string * string * int * bool -> int
+ val addPoll : int * string * string * string * string * int * bool * bool -> int
val modPoll : poll -> unit
val deletePoll : int -> unit