From 6e9071af2b6c43d3594cc207045a8d6d80c2f04c Mon Sep 17 00:00:00 2001
From: Brent Gordon <brentgordon146@gmail.com>
Date: Sat, 29 Feb 2020 11:22:14 -0500
Subject: [PATCH] fix mime-type mappings

---
 bot.rkt | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/bot.rkt b/bot.rkt
index 925e060..49473eb 100644
--- a/bot.rkt
+++ b/bot.rkt
@@ -15,12 +15,12 @@
 (define boundary-line (string-append "--" boundary CRLF))
 ; a table to map file extensions to MIME types:
 (define ext=>mime-type
-  #hash((#"jpg" . #"image/jpeg")
-        (#"png"  . #"image/png")
-        (#"gif"  . #"image/Gif")
-        (#"swf"  . #"application/x-shockwave-flash")
-        (#"mp4"  . #"video/mp4")
-        (#"webm" . #"video/webm")))                                        
+  #hash(("jpg" . #"image/jpeg")
+        ("png"  . #"image/png")
+        ("gif"  . #"image/Gif")
+        ("swf"  . #"application/x-shockwave-flash")
+        ("mp4"  . #"video/mp4")
+        ("webm" . #"video/webm")))