Command line

This commit is contained in:
xenia 2020-04-10 19:12:50 -04:00
parent 22d6f54fa5
commit 84553cf750
2 changed files with 12 additions and 2 deletions

1
.gitignore vendored
View File

@ -4,3 +4,4 @@
*.swp *.swp
.env .env
.envrc .envrc
.vimrc

View File

@ -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)))