fix mime-type mappings
This commit is contained in:
parent
db3e671897
commit
6e9071af2b
12
bot.rkt
12
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")))
|
||||
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user