steve
/
factor-work
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

oops

master
Steve Ayerhart 2023-09-06 15:20:26 -04:00
parent 597a806c7b
commit e4e1cc709d
Signed by: steve
GPG Key ID: BB368A0698AE49B7
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bonerbonerboner/actions/actions.factor
View File

@ -32,7 +32,7 @@ TUPLE: bbb-dispatcher < dispatcher ;
TUPLE: subdomain-link subdomain url ; TUPLE: subdomain-link subdomain url ;
: get-subdomain-links ( -- subdomain-links ) : get-subdomain-links ( -- subdomain-links )
get-subdomains >alist [ first "bbb" = ] reject get-subdomains [ "bbb" = ] reject
[ first dup "https://%s.bonerbonerboner.com" sprintf subdomain-link boa ] map ; [ first dup "https://%s.bonerbonerboner.com" sprintf subdomain-link boa ] map ;

2
bonerbonerboner/dns/dns.factor
View File

@ -26,7 +26,7 @@ CONSTANT: do-api-base-url URL" https://api.digitalocean.com/v2/"
] reduce ; ] reduce ;
: get-subdomains ( -- seq ) : get-subdomains ( -- seq )
get-subdomain-metadata ; get-subdomain-metadata keys ;
: post-domain-records-url ( -- url ) : post-domain-records-url ( -- url )
do-api-base-url URL" domains/bonerbonerboner.com/records" derive-url ; do-api-base-url URL" domains/bonerbonerboner.com/records" derive-url ;