diff options
author | John MacFarlane <jgm@berkeley.edu> | 2018-12-17 10:24:09 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2018-12-17 10:31:09 -0800 |
commit | 404e96761a9301e750a332524137639e204e44d0 (patch) | |
tree | 82942f3852f12fb4ac01f6e81dbfcef525fc9b8c /src/Text/Pandoc/Readers/Org/Meta.hs | |
parent | 90c820dc4e3d7e1db3813b953777d65ee74b2779 (diff) | |
download | pandoc-404e96761a9301e750a332524137639e204e44d0.tar.gz |
Replace read with safeRead. Closes #5162.
Diffstat (limited to 'src/Text/Pandoc/Readers/Org/Meta.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Org/Meta.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Meta.hs b/src/Text/Pandoc/Readers/Org/Meta.hs index 71fac6db3..fc733a777 100644 --- a/src/Text/Pandoc/Readers/Org/Meta.hs +++ b/src/Text/Pandoc/Readers/Org/Meta.hs @@ -265,7 +265,7 @@ macroDefinition = try $ do return (macroName, expander) where placeholder :: Monad m => OrgParser m Int - placeholder = try . fmap read $ char '$' *> many1 digit + placeholder = try . fmap (fromMaybe 1 . safeRead) $ char '$' *> many1 digit expansionPart :: Monad m => OrgParser m String expansionPart = try $ many (notFollowedBy placeholder *> noneOf "\n\r") |