diff options
| author | jao <jao@gnu.org> | 2014-10-11 20:21:38 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2014-10-11 20:22:10 +0200 |
| commit | 98938f15c39baaaff52d70606dfba49c4bb854b5 (patch) | |
| tree | e65ad89776e219c6f385aac1677cfd83c588e141 /src/Bitmap.hs | |
| parent | ee0c2639f99a4f8ee422b3d0b52323f887d0a9ec (diff) | |
| download | xmobar-98938f15c39baaaff52d70606dfba49c4bb854b5.tar.gz xmobar-98938f15c39baaaff52d70606dfba49c4bb854b5.tar.bz2 | |
Compatibility with mtl 2.1
Thanks to Apollon Oikonomopoulos!!
Diffstat (limited to 'src/Bitmap.hs')
| -rw-r--r-- | src/Bitmap.hs | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/src/Bitmap.hs b/src/Bitmap.hs index 63baf6a..ec99ad8 100644 --- a/src/Bitmap.hs +++ b/src/Bitmap.hs @@ -18,7 +18,6 @@ module Bitmap import Control.Applicative((<|>)) import Control.Monad -import Control.Monad.Except(MonadError(..), runExceptT) import Control.Monad.Trans(MonadIO(..)) import Data.Map hiding (foldr, map, filter) import Graphics.X11.Xlib @@ -33,6 +32,18 @@ import Actions (Action) import XPMFile(readXPMFile) #endif +#if MIN_VERSION_mtl(2, 2, 1) +import Control.Monad.Except(MonadError(..), runExceptT) + +#else +import Control.Monad.Error(MonadError(..)) +import Control.Monad.Trans.Error(ErrorT, runErrorT) + +runExceptT :: ErrorT e m a -> m (Either e a) +runExceptT = runErrorT + +#endif + data BitmapType = Mono Pixel | Poly data Bitmap = Bitmap { width :: Dimension |