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

torrent: fix exports and peers parsing

parent 66d5ce2e
......@@ -25,10 +25,12 @@
#:use-module (web uri)
#:export (make-tracker
tracker?
tracker-url
tracker-host
tracker-page
tracker-proto
tracker-port
tracker-infohash
tracker-state
tracker-uploaded
tracker-downloaded
tracker-left
......@@ -119,6 +121,7 @@
(define (parse-peers peers)
(match peers
(#f '())
((? bytevector? peers)
(begin
(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