diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-03-03 08:16:16 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-03-03 08:16:16 -0800 |
| commit | e6a03cdd4bd36cb3baceb226125b89a422ab0a09 (patch) | |
| tree | cc5f02e9857c00ce852806bb0021c5947fb54611 | |
| parent | 8a218dc0d5e09b7c6199adf7c75c2b055a34529f (diff) | |
| download | pandoc-e6a03cdd4bd36cb3baceb226125b89a422ab0a09.tar.gz | |
EPUB writer: Use extensible exceptions.
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index 67048348e..a04172a6d 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -48,6 +48,8 @@ import Text.Pandoc.Writers.Markdown ( writePlain ) import Data.Char ( toLower ) import Network.URI ( unEscapeString ) import Text.Pandoc.MIME (getMimeType) +import Prelude hiding (catch) +import Control.Exception (catch, SomeException) -- | Produce an EPUB file from a Pandoc document. writeEPUB :: Maybe String -- ^ EPUB stylesheet specified at command line @@ -127,7 +129,7 @@ writeEPUB mbStylesheet fonts opts doc@(Pandoc meta _) = do -- contents.opf localeLang <- catch (liftM (takeWhile (/='.')) $ getEnv "LANG") - (\_ -> return "en-US") + (\e -> let _ = (e :: SomeException) in return "en-US") let lang = case lookup "lang" (writerVariables opts') of Just x -> x Nothing -> localeLang |