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 -> int
val dateLe : string * string -> bool
val dateGeNow : string -> bool
+ val dateLeNow : string -> bool
val dateLtNow : string -> bool
val canModify : poll -> bool
val requireCanModify : poll -> unit
val nextSeq : int -> real
-end
\ No newline at end of file
+
+ val takingVotes : poll -> bool
+ val listChoicesWithVotes : int -> (bool * int * choice) list
+ val listChoicesWithMyVotes : int -> (bool * choice) list
+
+ val noDupes : ''a list -> bool
+ val listVoters : int -> Init.user list
+ (* This operates on choice IDs. *)
+
+ (* These operate on poll IDs. *)
+ val countVoters : int -> int
+ val listPollVoters : int -> Init.user list
+end