HCoop
/
hcoop
/
portal.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
payment: note that Stripe has instituted an additional 1% fee for non-US cards
[hcoop/portal.git]
/
poll.sig
diff --git
a/poll.sig
b/poll.sig
index
d459f04
..
2392f2b
100644
(file)
--- a/
poll.sig
+++ b/
poll.sig
@@
-1,12
+1,12
@@
signature POLL = sig
signature POLL = sig
- type poll = {id : int, usr : int, title : string, descr : string, starts : string, ends : string, votes : int}
+ 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 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 addPoll : int * string * string * string * string * int
* bool * bool
-> int
val modPoll : poll -> unit
val deletePoll : int -> unit
val modPoll : poll -> unit
val deletePoll : int -> unit
@@
-36,4
+36,13
@@
signature POLL = sig
val noDupes : ''a list -> bool
val listVoters : int -> Init.user list
val noDupes : ''a list -> bool
val listVoters : int -> Init.user list
-end
\ No newline at end of file
+ (* This operates on choice IDs. *)
+
+ (* These operate on poll IDs. *)
+ val countVoters : int -> int
+ val listPollVoters : int -> Init.user list
+
+ val votingMembershipRequirement : int
+
+ val membershipLength : int -> int
+end