EPUB Reader: Integrated into program

pandoc.cabal

@@ -231,7 +231,7 @@ Library
                  xml >= 1.3.12 && < 1.4,
                  random >= 1 && < 1.1,
                  extensible-exceptions >= 0.1 && < 0.2,
-                 pandoc-types >= 1.12.3.3 && < 1.13,
+                 pandoc-types >= 1.12.3.4 && < 1.13,
                  aeson >= 0.7 && < 0.8,
                  tagsoup >= 0.13.1 && < 0.14,
                  base64-bytestring >= 0.1 && < 1.1,
@@ -248,7 +248,8 @@ Library
                  binary >= 0.5 && < 0.8,
                  SHA >= 1.6 && < 1.7,
                  haddock-library >= 1.1 && < 1.2,
-                 old-time
+                 old-time,
+                 deepseq-generics >= 0.1 && < 0.2
   if flag(https)
      Build-Depends: http-client >= 0.3.2 && < 0.4,
                     http-client-tls >= 0.2 && < 0.3,
@@ -287,6 +288,7 @@ Library
                    Text.Pandoc.Readers.Native,
                    Text.Pandoc.Readers.Haddock,
                    Text.Pandoc.Readers.Docx,
+                   Text.Pandoc.Readers.EPUB,
                    Text.Pandoc.Writers.Native,
                    Text.Pandoc.Writers.Docbook,
                    Text.Pandoc.Writers.OPML,

pandoc.hs

@@ -891,6 +891,7 @@ defaultReaderName fallback (x:xs) =
     ".json"     -> "json"
     ".docx"     -> "docx"
     ".t2t"      -> "t2t"
+    ".epub"     -> "epub"
     _           -> defaultReaderName fallback xs
 
 -- Returns True if extension of first source is .lhs

src/Text/Pandoc.hs

@@ -79,6 +79,7 @@ module Text.Pandoc
                , readJSON
                , readTxt2Tags
                , readTxt2TagsNoMacros
+               , readEPUB
                -- * Writers: converting /from/ Pandoc format
                , Writer (..)
                , writeNative
@@ -134,6 +135,7 @@ import Text.Pandoc.Readers.Native
 import Text.Pandoc.Readers.Haddock
 import Text.Pandoc.Readers.Docx
 import Text.Pandoc.Readers.Txt2Tags
+import Text.Pandoc.Readers.EPUB
 import Text.Pandoc.Writers.Native
 import Text.Pandoc.Writers.Markdown
 import Text.Pandoc.Writers.RST
@@ -233,6 +235,7 @@ readers = [ ("native"       , StringReader $ \_ s -> return $ readNative s)
            ,("haddock"      , mkStringReader readHaddock)
            ,("docx"         , mkBSReader readDocx)
            ,("t2t"          , mkStringReader readTxt2TagsNoMacros)
+           ,("epub"         , mkBSReader readEPUB)
            ]
 
 data Writer = PureStringWriter   (WriterOptions -> Pandoc -> String)