diff --git a/Data/EitherR.hs b/Data/EitherR.hs
--- a/Data/EitherR.hs
+++ b/Data/EitherR.hs
@@ -128,7 +128,7 @@
 
 -- | Synonym for 'throwT'
 left :: (Monad m) => e -> EitherT e m r
-left = throwT
+left = EitherT . return . Left
 
 -- | 'throwT' in the error monad corresponds to 'return' in the success monad
 throwT :: (Monad m) => e -> EitherT e m r
diff --git a/errors.cabal b/errors.cabal
--- a/errors.cabal
+++ b/errors.cabal
@@ -1,5 +1,5 @@
 Name: errors
-Version: 1.1.0
+Version: 1.1.1
 Cabal-Version: >=1.14.0
 Build-Type: Simple
 License: BSD3