diff --git a/lib/Network/Protocol/XMPP/ErrorT.hs b/lib/Network/Protocol/XMPP/ErrorT.hs
--- a/lib/Network/Protocol/XMPP/ErrorT.hs
+++ b/lib/Network/Protocol/XMPP/ErrorT.hs
@@ -20,6 +20,7 @@
 	, mapErrorT
 	) where
 
+import           Control.Applicative (Applicative, pure, (<*>))
 import           Control.Monad (liftM)
 import           Control.Monad.Fix (MonadFix, mfix)
 import           Control.Monad.Trans (MonadIO, liftIO)
@@ -35,6 +36,18 @@
 
 instance Functor m => Functor (ErrorT e m) where
 	fmap f = ErrorT . fmap (fmap f) . runErrorT
+
+instance (Functor m, Monad m) => Applicative (ErrorT e m) where
+	pure a  = ErrorT $ return (Right a)
+	f <*> v = ErrorT $ do
+		mf <- runErrorT f
+		case mf of
+			Left  e -> return (Left e)
+			Right k -> do
+				mv <- runErrorT v
+				case mv of
+					Left  e -> return (Left e)
+					Right x -> return (Right (k x))
 
 instance Monad m => Monad (ErrorT e m) where
 	return = ErrorT . return . Right
diff --git a/network-protocol-xmpp.cabal b/network-protocol-xmpp.cabal
--- a/network-protocol-xmpp.cabal
+++ b/network-protocol-xmpp.cabal
@@ -1,5 +1,5 @@
 name: network-protocol-xmpp
-version: 0.4.6
+version: 0.4.7
 license: GPL-3
 license-file: license.txt
 author: John Millikin <jmillikin@gmail.com>, Stephan Maka <stephan@spaceboyz.net>
@@ -21,7 +21,7 @@
 source-repository this
   type: git
   location: https://john-millikin.com/code/haskell-xmpp/
-  tag: network-protocol-xmpp_0.4.6
+  tag: network-protocol-xmpp_0.4.7
 
 library
   ghc-options: -Wall -O2