Commit 197d9dca authored by Julien Lepiller's avatar Julien Lepiller

torrent: fix exports and peers parsing

parent 66d5ce2e
...@@ -25,10 +25,12 @@ ...@@ -25,10 +25,12 @@
#:use-module (web uri) #:use-module (web uri)
#:export (make-tracker #:export (make-tracker
tracker? tracker?
tracker-url tracker-host
tracker-page
tracker-proto tracker-proto
tracker-port tracker-port
tracker-infohash tracker-infohash
tracker-state
tracker-uploaded tracker-uploaded
tracker-downloaded tracker-downloaded
tracker-left tracker-left
...@@ -119,6 +121,7 @@ ...@@ -119,6 +121,7 @@
(define (parse-peers peers) (define (parse-peers peers)
(match peers (match peers
(#f '())
((? bytevector? peers) ((? bytevector? peers)
(begin (begin
(let loop ((pos 0)) (let loop ((pos 0))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment