From 075de8f8eaf6fd5eef1d8c18fe903199737fb581 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Mon, 23 Apr 2018 02:51:38 +0300
Subject: Handle XHTML filename extensions and MIME types

---
 Pancake/Reading.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Pancake')

diff --git a/Pancake/Reading.hs b/Pancake/Reading.hs
index 0124ec9..86786c9 100644
--- a/Pancake/Reading.hs
+++ b/Pancake/Reading.hs
@@ -253,6 +253,8 @@ readDoc c out dt uri = do
     byExtension' ext = byExtension $ dropWhile (== '.') ext
     byExtension "md" = P.getReader "markdown"
     byExtension "htm" = html
+    byExtension "xhtml" = html
+    byExtension "xht" = html
     byExtension "ltx" = P.getReader "latex"
     byExtension "tex" = P.getReader "latex"
     byExtension "txt" = pure plain
-- 
cgit v1.2.3