@@ 1,5 1,4 @@
{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE DeriveDataTypeable #-}
-- Copyright (C) 2009-2011 John Millikin <jmillikin@gmail.com>
--
@@ 30,7 29,6 @@ import qualified Data.ByteString.Char8
import qualified Data.Text
import Data.Text (Text)
import Data.Text.Encoding (encodeUtf8)
-import Data.Typeable (Typeable)
import qualified Network.Protocol.SASL.GNU as SASL
import qualified Network.Protocol.XMPP.Monad as M
@@ 41,7 39,7 @@ data Result = Success | Failure X.Element
deriving (Show, Eq)
data AuthException = XmppError M.Error | SaslError Text
- deriving (Typeable, Show)
+ deriving (Show)
instance Exc.Exception AuthException