diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-10-11 09:24:31 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-10-11 09:24:31 -0700 |
| commit | 63ea754b49612bb89317b3aa30b756a7cd52d2ac (patch) | |
| tree | 1d6a2a0b6447c19e49da3f9c7d01e51ec18259cf | |
| parent | 4ba4533d70e08b4979bedbd962668a493578c25d (diff) | |
| download | pandoc-63ea754b49612bb89317b3aa30b756a7cd52d2ac.tar.gz | |
Fix warning
| -rw-r--r-- | src/Text/Pandoc/Translations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) = |