guile-pastebin

main.scm

(use-modules (pastebin httpserver)
             (web server))

(define (run-pastebin args)
  (let ((data-dir (cadr args)))
    (if (not (file-exists? data-dir))
        (mkdir data-dir))
    (run-server (make-pastebin-handler data-dir) 'http '(#:addr 0))))


1	(use-modules (pastebin httpserver)
2	(web server))
3
4	(define (run-pastebin args)
5	(let ((data-dir (cadr args)))
6	(if (not (file-exists? data-dir))
7	(mkdir data-dir))
8	(run-server (make-pastebin-handler data-dir) 'http '(#:addr 0))))
9