diff --git a/.gitignore b/.gitignore index c3dec52..2436084 100644 --- a/.gitignore +++ b/.gitignore @@ -4,3 +4,4 @@ *.swp .env .envrc +.vimrc diff --git a/webcrawler b/webcrawler index 698a588..a05e711 100755 --- a/webcrawler +++ b/webcrawler @@ -1,9 +1,18 @@ #!/usr/bin/env racket -#lang racket/base +#lang racket +; vim: ft=racket (require smol-http) (define req (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)) + +(module+ main + (command-line + #:program "webcrawler" + #:args + (username password) + (run-webcrawler username password)))