Support CRLF for interactive session key setting

Use 'any mode for read-line

Author: eutro

info.rkt

@@ -4,7 +4,7 @@
 (define build-deps '("scribble-lib" "racket-doc" "net-doc"))
 (define scribblings '(("scribblings/advent-of-code.scrbl" ())))
 (define pkg-desc "Package for fetching Advent of Code input.")
-(define version "1.0.1")
+(define version "1.0.2")
 (define pkg-authors '(eutro))
 (define raco-commands
   '(("aoc" (submod advent-of-code main) "Fetch Advent of Code puzzle input" #f)))

meta.rkt

@@ -27,7 +27,7 @@
           (if (eq? default 'y) "Y" "y")
           (if (eq? default 'n) "N" "n"))
   (flush-output)
-  (define line (read-line))
+  (define line (read-line (current-input-port) 'any))
   (if (eof-object? line)
       #f
       (case (string-downcase line)
@@ -50,7 +50,7 @@
     (displayln "- Firefox: \"Storage\" tab (Shift + F9)")
     (displayln "- Chrome: \"Application\" tab")
     (displayln "Enter the contents of your session cookie below:")
-    (define session (read-line))
+    (define session (read-line (current-input-port) 'any))
     (when (eof-object? session)
       (exit 1))
     (with-output-to-file session-file