| 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 | |
| 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 | |
| 18 | end |