diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-09-01 06:33:29 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-09-02 09:18:09 -0400 |
| commit | 7ea16ad058f6b2854cfae5cc241de95df601f7d7 (patch) | |
| tree | b09ebe74a22afbba738d468576d7965f15104713 | |
| parent | 121e3dfb6411e109886ca2d45dacb9708cb0c4a0 (diff) | |
Actually remove T/P/Compat/Except.
| -rw-r--r-- | src/Text/Pandoc/Compat/Except.hs | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/src/Text/Pandoc/Compat/Except.hs b/src/Text/Pandoc/Compat/Except.hs deleted file mode 100644 index 9ce7c0d36..000000000 --- a/src/Text/Pandoc/Compat/Except.hs +++ /dev/null @@ -1,37 +0,0 @@ -{-# LANGUAGE CPP #-} -module Text.Pandoc.Compat.Except ( ExceptT - , Except - , Error(..) - , runExceptT - , runExcept - , MonadError - , throwError - , catchError ) - where - -#if MIN_VERSION_mtl(2,2,1) -import Control.Monad.Except - -class Error a where - noMsg :: a - strMsg :: String -> a - - noMsg = strMsg "" - strMsg _ = noMsg - -#else -import Control.Monad.Error -import Control.Monad.Identity (Identity, runIdentity) - -type ExceptT = ErrorT - -type Except s a = ErrorT s Identity a - -runExceptT :: ExceptT e m a -> m (Either e a) -runExceptT = runErrorT - -runExcept :: ExceptT e Identity a -> Either e a -runExcept = runIdentity . runExceptT -#endif - - |