diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-08-31 17:44:07 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-09-02 09:18:09 -0400 |
| commit | 7f676b534aa82ae44c62d854c5d29d46c3d2c30a (patch) | |
| tree | 4ad98f768046b36dbfa95681b7ce97e4951b3e8f /src/Text/Pandoc/Readers/Docx | |
| parent | 26c3705da4207af2af4dfc35737d44a18ee400e5 (diff) | |
| download | pandoc-7f676b534aa82ae44c62d854c5d29d46c3d2c30a.tar.gz | |
Remove Text.Pandoc.Compat.Except
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/Parse.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs index 3efdb70a8..b9021ec08 100644 --- a/src/Text/Pandoc/Readers/Docx/Parse.hs +++ b/src/Text/Pandoc/Readers/Docx/Parse.hs @@ -64,7 +64,7 @@ import Control.Monad.Reader import Control.Monad.State import Control.Applicative ((<|>)) import qualified Data.Map as M -import Text.Pandoc.Compat.Except +import Control.Monad.Except import Text.Pandoc.Shared (safeRead) import Text.TeXMath.Readers.OMML (readOMML) import Text.Pandoc.Readers.Docx.Fonts (getUnicode, Font(..)) @@ -91,9 +91,6 @@ data ReaderState = ReaderState { stateWarnings :: [String] } data DocxError = DocxError | WrongElem deriving Show -instance Error DocxError where - noMsg = WrongElem - type D = ExceptT DocxError (ReaderT ReaderEnv (State ReaderState)) runD :: D a -> ReaderEnv -> ReaderState -> (Either DocxError a, ReaderState) |