11 lines
146 B
Racket
11 lines
146 B
Racket
#lang racket/base
|
|
(provide resource->url)
|
|
|
|
(require "structs.rkt"
|
|
net/url)
|
|
|
|
|
|
|
|
(define (resource->url r)
|
|
(path->url (resource-path r)))
|