w6vvn/gem300
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

the exceptions were raising exceptions...

Browse Source
This commit is contained in:
w6vvn
2025-09-08 12:54:22 -07:00
parent b0af59a316
commit bc5ddeb84c
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
client.rkt
View File

@@ -195,7 +195,9 @@
(struct-copy (struct-copy
url url
destination destination
[query `((,(string->symbol (read-line)) . #f))]))] [query `((,(string->symbol
(read-line (current-input-port)
'any)) . #f))]))]
;; ;;
;; 20-29 SUCCESS ;; 20-29 SUCCESS
@@ -214,7 +216,7 @@
'get-document 'get-document
(string-append "unsupported mime ~a~n" (string-append "unsupported mime ~a~n"
" url: ~a~n") " url: ~a~n")
meta destination)]) meta (url->string destination))])
;; If the document failed to be fetched (parser error, ;; If the document failed to be fetched (parser error,
;; unsupported mime, so on and so forth) this would not ;; unsupported mime, so on and so forth) this would not
@@ -243,7 +245,7 @@
" url: ~a~n" " url: ~a~n"
" explanation: ~a~n") " explanation: ~a~n")
status status
(string->url destination) (url->string destination)
(dict-ref temporary-failures (dict-ref temporary-failures
status status
"temporary failure"))] "temporary failure"))]
@@ -258,7 +260,7 @@
" url: ~a~n" " url: ~a~n"
" explanation: ~a~n") " explanation: ~a~n")
status status
(string->url destination) (url->string destination)
(dict-ref permanent-failures (dict-ref permanent-failures
status status
"temporary failure"))] "temporary failure"))]
@@ -273,4 +275,4 @@
"which this client does not yet support~a~n" "which this client does not yet support~a~n"
" url: ~a~n"))]) " url: ~a~n"))])
(next-cmd))) (next-cmd))))