mirror of github:amycatgirl/amycatgirl.github.io
chore: more bug fixes
turns out that i wrote a bunch of things wrong lol
Signed-off-by: Amy <amy+git@amogus.cloud>
+5
-6
+5
-6
fallback.lisp
+5
-6
fallback.lisp
···
70
70
(defun did->https (did)
71
71
"Convert `did' to a proper http form."
72
72
(let* ((method (get-did-method did))
73
-
(loq (document-location (subseq did (length (format nil "did:~A:" method))))))
73
+
(loq (subseq did (length (format nil "did:~A:" method)))))
74
74
(concatenate 'string
75
75
"https://"
76
76
loq)))
···
79
79
"Resolve a DID document via DID:WEB method.
80
80
See https://w3c-ccg.github.io/did-method-web/ for specification
81
81
details."
82
-
(let* ((qualified-path (concatenate 'string (did->http did) "/.well-known/did.json"))
82
+
(let* ((qualified-path (concatenate 'string (did->https did) "/.well-known/did.json"))
83
83
(document (make-request qualified-path)))
84
84
(if (equal (getf document :id) did)
85
85
document
···
88
88
(defun webvh-get-latest-document-unsafe (log)
89
89
"Get the latest DID document from the provided webvh `LOG'.
90
90
Does not ensure integrity and does not process the entire log in order."
91
-
(getf :state (last log)))
91
+
(getf (last log) :state))
92
92
93
93
(defun resolve-did-document--webvh (did)
94
94
"Resolve a DID document via did:webvh method. This is not up to spec,
···
96
96
See https://identity.foundation/didwebvh/v1.0/#read-resolve for spec
97
97
details."
98
98
(let* ((qualified-path (concatenate 'string
99
-
"https://"
100
-
(did->http did)
99
+
(did->https did)
101
100
"/.well-known/did.jsonl"))
102
101
(log-json-lines (make-request qualified-path))
103
102
(log (parse-json-lines log-json-lines)))
···
114
113
(document (case did-method
115
114
("web" (resolve-did-document--web did))
116
115
("plc" (resolve-did-document--plc did))
117
-
("webvh" (resolve-did-document-webvh did))
116
+
("webvh" (resolve-did-document--webvh did))
118
117
(_ (error "Unsuported DID method ~S" did-method))))
119
118
(services (getf document :service)))
120
119
(getf (find-if (lambda (service)