Add ToS agreement and support for minors and their legal guardians

[bpt/portal.git] / app / app.sig

diff --git a/app/app.sig b/app/app.sig
index 188aaa4..18c259e 100644 (file)
--- a/app/app.sig
+++ b/app/app.sig
@@ -5,7 +5,11 @@ sig
     val init : unit -> unit
     val done : unit -> unit
 
-    type application = { name : string, rname : string, email : string,
+    val readTosBody : unit -> string
+    val readTosAgree : unit -> string
+    val readTosMinorAgree : unit -> string
+
+    type application = { name : string, rname : string, gname : string option, email : string,
                         forward : bool, uses : string, other : string }
 
     val apply : application -> bool