Commit | Line | Data |
---|---|---|
a75ed94b AC |
1 | signature QOS = sig |
2 | ||
3 | type entry = { kind : string, kindUrl : string option, name : string, url : string option, usr : int, uname : string, | |
4 | stamp : Init.C.timestamp, pstamp : Init.C.timestamp option, cstamp : Init.C.timestamp option} | |
5 | ||
6 | val recent : int -> entry list | |
7 | ||
f7cc3697 AC |
8 | type grade = { count : int, minutes : int } |
9 | type grades = { pending : grade, closed : grade } | |
10 | type reportCard = { misc : grades, | |
11 | apt : grade, | |
12 | domain : grade, | |
13 | mailingList : grade, | |
14 | sec : grade } | |
15 | ||
16 | val reportCard : int -> reportCard | |
17 | ||
a75ed94b | 18 | end |