From 13125945261568f04e8efe0033deb32c5a643c3c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 17 Nov 2021 16:32:36 -0800
Subject: [PATCH] Babel mappings: use ancientgreek for grc.

---
 src/Text/Pandoc/Writers/LaTeX/Lang.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/Writers/LaTeX/Lang.hs b/src/Text/Pandoc/Writers/LaTeX/Lang.hs
index f6fa8d187..3fdbdc5af 100644
--- a/src/Text/Pandoc/Writers/LaTeX/Lang.hs
+++ b/src/Text/Pandoc/Writers/LaTeX/Lang.hs
@@ -43,7 +43,7 @@ toBabel (Lang "en" _ (Just "US") _ _ _) = "american"
 toBabel (Lang "fr" _ (Just "CA") _ _ _) = "canadien"
 toBabel (Lang "fra" _ _ vars _ _)
   | "aca" `elem` vars                   = "acadian"
-toBabel (Lang "grc" _ _ _ _ _)          = "polutonikogreek"
+toBabel (Lang "grc" _ _ _ _ _)          = "ancientgreek"
 toBabel (Lang "hsb" _ _ _ _ _)          = "uppersorbian"
 toBabel (Lang "la" _ _ vars _ _)
   | "x-classic" `elem` vars             = "classiclatin"