From 63ea754b49612bb89317b3aa30b756a7cd52d2ac Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 11 Oct 2021 09:24:31 -0700 Subject: Fix warning --- src/Text/Pandoc/Translations.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Translations.hs b/src/Text/Pandoc/Translations.hs index 000d1091b..17d56f262 100644 --- a/src/Text/Pandoc/Translations.hs +++ b/src/Text/Pandoc/Translations.hs @@ -82,7 +82,7 @@ instance YAML.FromYAML Term where parseYAML invalid = YAML.typeMismatch "Term" invalid instance FromJSON Translations where - parseJSON o@(Object hm) = do + parseJSON o@(Object{}) = do xs <- parseJSON o >>= mapM addItem . M.toList return $ Translations (M.fromList xs) where addItem (k,v) = -- cgit v1.2.3