From 84553cf750c48b47f52b5da79a37922637f93f77 Mon Sep 17 00:00:00 2001 From: haskal Date: Fri, 10 Apr 2020 19:12:50 -0400 Subject: [PATCH] Command line --- .gitignore | 1 + webcrawler | 13 +++++++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) 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)))