X-Git-Url: https://git.hcoop.net/bpt/portal.git/blobdiff_plain/e68ddb8014e01a51952aa8077fa1e85c4a1fa014..62b0bade1cb05b41e62f68a2f74f8406193c64f3:/poll.sig

diff --git a/poll.sig b/poll.sig
index 3a47db8..8111fe9 100644
--- a/poll.sig
+++ b/poll.sig
@@ -3,6 +3,7 @@ signature POLL = sig
 
     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
@@ -21,10 +22,23 @@ signature POLL = sig
 
     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