diff src/ur/openid.urs @ 3:f59083771ee2

Saving associations
author Adam Chlipala <adam@chlipala.net>
date Sun, 26 Dec 2010 15:11:23 -0500
parents b757dc2bd2f6
children 2d409aff8800
line wrap: on
line diff
--- a/src/ur/openid.urs	Sun Dec 26 13:28:06 2010 -0500
+++ b/src/ur/openid.urs	Sun Dec 26 15:11:23 2010 -0500
@@ -1,1 +1,4 @@
 val discover : string -> transaction (option {Endpoint : string, LocalId : option string})
+
+datatype association = Handle of string | Error of string
+val association : string -> transaction association