diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-28 15:52:48 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-28 15:52:48 -0600 |
| commit | e128fcb2a021587aa428097f867c200c1ed3c426 (patch) | |
| tree | bf1da9d81769edc07618749291827a29cfd17d68 | |
| parent | 0cd6911ece1725301e06a8abf20ce2177e54747e (diff) | |
change signature tested
| -rw-r--r-- | build-app.lisp | 8 | ||||
| -rw-r--r-- | src/lib.lisp | 3 |
2 files changed, 6 insertions, 5 deletions
diff --git a/build-app.lisp b/build-app.lisp index c60da1b..0899c33 100644 --- a/build-app.lisp +++ b/build-app.lisp @@ -62,10 +62,10 @@ my1337pw.") (flag :long-name "explain" :description "View oneliner explaination text.") (enum :long-name "help" - :enum '(:contributors :wiki :invites) + :enum '(:account :wiki :invites) :argument-name "TOPIC" :description "Print help for a topic. -Topics: wiki, access, invites")) +Topics: wiki, account, invites")) (group (:header "Wiki" :hidden t) (text :contents "Options For Managing Oneliners") (flag :long-name "add" @@ -80,7 +80,7 @@ Topics: wiki, access, invites")) :description "If you have admin priviliges, lock a oneliner from being edited.") (flag :long-name "unlock" :description "If you have admin priviliges, unlock a oneliner.")) - (group (:header "Contributors" :hidden t) + (group (:header "Account" :hidden t) (text :contents "Options for Managing Your Contributor Account") (flag :long-name "login" :description "Attempt to login to your contributor account. ARGS are interpreted as USERNAME PASSWORD.") @@ -135,7 +135,7 @@ than the users." (cli::change-pw current new repeated))) ((getopt :long-name "change-signature") - (cli:change-signature)) + (cli::change-signature)) ((getopt :long-name "invite") (cli::request-invite-code)) diff --git a/src/lib.lisp b/src/lib.lisp index 713e86b..c90a022 100644 --- a/src/lib.lisp +++ b/src/lib.lisp @@ -411,7 +411,8 @@ the directories that appear in the value of that variable." (ensure-config) (api:request-with (:host (host) - :body (jonathan:to-json (list :signature new-sig))) + :body (jonathan:to-json (list :signature new-sig)) + :content-type "application/json") (api:put--contributor-who-signature (contributor-handle) :token (api-token)) (format t "Your signature was changed.~%")))) |