passwd : string, status : status, applied : Init.C.timestamp,
ipaddr : string option,
confirmed : Init.C.timestamp option, decided : Init.C.timestamp option,
- msg : string, unix_passwd : string }
+ msg : string, unix_passwd : string,
+ paypal : string option, checkout : string option }
val lookupApp : int -> app
val listApps : status -> app list
val add : int -> unit
val abortAdd : int -> unit
val welcome : int -> unit
+
+ val searchPaypal : string -> app list
+ val searchCheckout : string -> app list
end