diff options
author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-12-02 08:15:10 -0500 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:40 +0100 |
commit | 650fa2078890462f39be8fb294031bb706dbb5a0 (patch) | |
tree | ce03683c4b4276281f321efdc82010695a05fe04 /src/Text/Pandoc/Readers/Textile.hs | |
parent | 9d69c51527bd9763a36e52b1995ddc9f79896f58 (diff) | |
download | pandoc-650fa2078890462f39be8fb294031bb706dbb5a0.tar.gz |
Readers: pass errors straight up to PandocMonad.
Since we've unified error types, we can just throw the same error at
the toplevel.
Diffstat (limited to 'src/Text/Pandoc/Readers/Textile.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs index 4b558b42e..721b57f46 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -68,7 +68,6 @@ import Control.Monad ( guard, liftM, when ) import Data.Monoid ((<>)) import Text.Printf import Debug.Trace (trace) -import Text.Pandoc.Error import Text.Pandoc.Class (PandocMonad) import Control.Monad.Except (throwError) @@ -81,7 +80,7 @@ readTextile opts s = do parsed <- readWithM parseTextile def{ stateOptions = opts } (s ++ "\n\n") case parsed of Right result -> return result - Left _ -> throwError $ PandocParseError "textile parse error" + Left e -> throwError e -- | Generate a Pandoc ADT from a textile document |