Command line
This commit is contained in:
parent
22d6f54fa5
commit
84553cf750
|
@ -4,3 +4,4 @@
|
||||||
*.swp
|
*.swp
|
||||||
.env
|
.env
|
||||||
.envrc
|
.envrc
|
||||||
|
.vimrc
|
||||||
|
|
13
webcrawler
13
webcrawler
|
@ -1,9 +1,18 @@
|
||||||
#!/usr/bin/env racket
|
#!/usr/bin/env racket
|
||||||
#lang racket/base
|
#lang racket
|
||||||
|
; vim: ft=racket
|
||||||
(require smol-http)
|
(require smol-http)
|
||||||
|
|
||||||
(define req
|
(define req
|
||||||
(make-http-req 'GET "/hello-world"))
|
(make-http-req 'GET "/hello-world"))
|
||||||
|
|
||||||
(module+ main
|
(define (run-webcrawler username password)
|
||||||
|
(printf "the credentials are: ~s ~s\n" username password)
|
||||||
(write-http-msg req))
|
(write-http-msg req))
|
||||||
|
|
||||||
|
(module+ main
|
||||||
|
(command-line
|
||||||
|
#:program "webcrawler"
|
||||||
|
#:args
|
||||||
|
(username password)
|
||||||
|
(run-webcrawler username password)))
|
||||||
|
|
Loading…
Reference in New Issue