diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-10-10 08:43:45 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-10-10 09:36:33 -0700 |
| commit | d80aaee42b5563df3a647830639bdd3b090a22ee (patch) | |
| tree | b111da471bc22333ac22afd4d6902cd975fb9044 /src/Text/Pandoc/Translations.hs | |
| parent | aa78765bf9d21b3a617a9eafba59dd59e362aa6b (diff) | |
| download | pandoc-d80aaee42b5563df3a647830639bdd3b090a22ee.tar.gz | |
Translations: don't depend on the fact that Aeson Object is...
implemented internally as a HashMap. This is no longer
public as of aeson 2.0.0.0.
Diffstat (limited to 'src/Text/Pandoc/Translations.hs')
| -rw-r--r-- | src/Text/Pandoc/Translations.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Translations.hs b/src/Text/Pandoc/Translations.hs index 0c7d7ab23..000d1091b 100644 --- a/src/Text/Pandoc/Translations.hs +++ b/src/Text/Pandoc/Translations.hs @@ -31,7 +31,6 @@ module Text.Pandoc.Translations ( where import Data.Aeson.Types (Value(..), FromJSON(..)) import qualified Data.Aeson.Types as Aeson -import qualified Data.HashMap.Strict as HM import qualified Data.Map as M import qualified Data.Text as T import qualified Data.YAML as YAML @@ -83,8 +82,8 @@ instance YAML.FromYAML Term where parseYAML invalid = YAML.typeMismatch "Term" invalid instance FromJSON Translations where - parseJSON (Object hm) = do - xs <- mapM addItem (HM.toList hm) + parseJSON o@(Object hm) = do + xs <- parseJSON o >>= mapM addItem . M.toList return $ Translations (M.fromList xs) where addItem (k,v) = case safeRead k of |