diff src/ur/openidFfi.urs @ 2:b757dc2bd2f6

Discovery returns a record
author Adam Chlipala <adam@chlipala.net>
date Sun, 26 Dec 2010 13:28:06 -0500
parents c230e6da3ff6
children f59083771ee2
line wrap: on
line diff
--- a/src/ur/openidFfi.urs	Sun Dec 26 13:10:36 2010 -0500
+++ b/src/ur/openidFfi.urs	Sun Dec 26 13:28:06 2010 -0500
@@ -1,2 +1,6 @@
 val init : transaction {}
-val discover : string -> transaction (option string)
+
+type discovery
+val discover : string -> transaction (option discovery)
+val endpoint : discovery -> string
+val localId : discovery -> option string