X-Git-Url: https://git.hcoop.net/bpt/portal.git/blobdiff_plain/a75ed94bb4d8801149d1eff968bcd1d9163c3971..f0fc5bd9cfabbfd0f191ee0d44b3393e24e9d526:/qos.sig diff --git a/qos.sig b/qos.sig index d617aec..144c564 100644 --- a/qos.sig +++ b/qos.sig @@ -5,4 +5,14 @@ signature QOS = sig val recent : int -> entry list + type grade = { count : int, minutes : int } + type grades = { pending : grade, closed : grade } + type reportCard = { misc : grades, + apt : grade, + domain : grade, + mailingList : grade, + sec : grade } + + val reportCard : int -> reportCard + end