@@ -800,7 +800,7 @@ inlineToLaTeX (Span (id',classes,kvs) ils) = do
800800 (if rtl then inCmd "RL" else id) .
801801 (if ltr then inCmd "LR" else id) .
802802 (case lookup "lang" kvs of
803− Just lng -> let (l, o) = toPolyglossiaEnv lng
803+ Just lng -> let (l, o) = toPolyglossia $ splitBy (=='-') lng
804804 ops = if null o then "" else brackets (text o)
805805 in \c -> char '\\' <> "text" <> text l <> ops <> braces c
806806 Nothing -> id)