- (if (file-exists? user-feed-file)
- (match (first (file->feeds user-feed-file))
- [(feed #f u) (format "+~a" (url->string u) )]
- [(feed n u) (format "+~a; @~a" (url->string u) n)])
+ (if (file-exists? user-peer-file)
+ (match (first (file->peers user-peer-file))
+ [(Peer #f u) (format "+~a" (url->string u) )]
+ [(Peer n u) (format "+~a; @~a" (url->string u) n)])