diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-08-09 08:11:28 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-08-09 08:11:28 -0700 |
| commit | a740de05086960eb6d926f68acd43fedb4599f6c (patch) | |
| tree | bfdbb5d23d89aa7c431e1c2edf91560454e3358c /src/Text/Pandoc/Writers | |
| parent | 10cdd59fa8664caf5ac73dc06ee7076a4bbe69bd (diff) | |
| download | pandoc-a740de05086960eb6d926f68acd43fedb4599f6c.tar.gz | |
Use safeRead instead of using reads directly (various modules).
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index 9a6f9670f..1a2764cb6 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -309,9 +309,9 @@ ppTopElement = ("<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" ++) . unEntity . unEntity ('&':'#':xs) = let (ds,ys) = break (==';') xs rest = drop 1 ys - in case reads ('\'':'\\':ds ++ "'") of - ((x,_):_) -> x : unEntity rest - _ -> '&':'#':unEntity xs + in case safeRead ('\'':'\\':ds ++ "'") of + Just x -> x : unEntity rest + Nothing -> '&':'#':unEntity xs unEntity (x:xs) = x : unEntity xs imageTypeOf :: FilePath -> Maybe String |