Commit 96311337 authored by Antoine Martin's avatar Antoine Martin
Browse files

Make sure upper case file extensions are matched

parent 24a53ee2
......@@ -89,7 +89,7 @@
(defun format-readme (readme)
(let ((readme-txt (file-to-string readme)))
(if (find (pathname-type readme)
(if (find (string-downcase (pathname-type readme))
'("md" "markdown" "mdown" "mkdn" "mdwn" "mkd")
:test #'string=)
(handler-case
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment