Change more all-caps names to camel case

rename Sasl.Sasl to Sasl.Common

source/Network/Xmpp/Sasl.hs

@@ -53,7 +53,7 @@ xmppSasl creds = runErrorT $ do
             authzid
             authcid
             passwd
-        PlainCredentials authzid authcid passwd -> ErrorT $ xmppPLAIN
+        PlainCredentials authzid authcid passwd -> ErrorT $ xmppPlain
             authzid
             authcid
             passwd

source/Network/Xmpp/Sasl/Common.hs

@@ -1,16 +1,19 @@
 {-# LANGUAGE OverloadedStrings #-}
 
-module Network.Xmpp.Sasl.Sasl where
+module Network.Xmpp.Sasl.Common where
 
-import Network.Xmpp.Types
+import           Network.Xmpp.Types
 
+import           Control.Applicative ((<$>))
 import           Control.Monad.Error
-import           Data.Text
+
 import qualified Data.Attoparsec.ByteString.Char8 as AP
+import qualified Data.ByteString as BS
+import           Data.Maybe (fromMaybe)
+import           Data.Maybe (maybeToList)
+import           Data.Text
 import           Data.XML.Pickle
 import           Data.XML.Types
-import qualified Data.ByteString as BS
-import Data.Maybe (fromMaybe)
 
 import           Network.Xmpp.Pickle
 
@@ -20,7 +23,7 @@ saslInitE :: Text -> Maybe Text -> Element
 saslInitE mechanism rt =
     Element "{urn:ietf:params:xml:ns:xmpp-sasl}auth"
         [("mechanism", [ContentText mechanism])]
-        [NodeContent $ ContentText $ fromMaybe "" rt]
+        (maybeToList $ NodeContent . ContentText <$> rt)
 
 -- SASL response with text payload.
 saslResponseE :: Text -> Element
@@ -28,12 +31,14 @@ saslResponseE resp =
     Element "{urn:ietf:params:xml:ns:xmpp-sasl}response"
     []
     [NodeContent $ ContentText resp]
+
 -- SASL response without payload.
 saslResponse2E :: Element
 saslResponse2E =
     Element "{urn:ietf:params:xml:ns:xmpp-sasl}response"
     []
     []
+
 -- Parses the incoming SASL data to a mapped list of pairs.
 toPairs :: BS.ByteString -> Either String [(BS.ByteString, BS.ByteString)]
 toPairs = AP.parseOnly . flip AP.sepBy1 (void $ AP.char ',') $ do

source/Network/Xmpp/Sasl/DigestMD5.hs

@@ -47,14 +47,14 @@ xmppDigestMD5 authzid authcid passwd = runErrorT $ do
     realm <- gets sHostname
     case realm of
         Just realm' -> do
-            ErrorT $ xmppDIGEST_MD5' realm'
+            ErrorT $ xmppDigestMD5' realm'
             -- TODO: Save authzid
             modify (\s -> s{sUsername = Just authcid})
         Nothing -> throwError AuthConnectionError
   where
-    xmppDIGEST_MD5' :: Text -- ^ SASL realm
+    xmppDigestMD5' :: Text -- ^ SASL realm
                     -> XmppConMonad (Either AuthError ())
-    xmppDIGEST_MD5' realm = runErrorT $ do
+    xmppDigestMD5' realm = runErrorT $ do
         -- Push element and receive the challenge (in XmppConMonad).
         _ <- lift . pushElement $ saslInitE "DIGEST-MD5" Nothing -- TODO: Check boolean?
         challenge' <- lift $ B64.decode . Text.encodeUtf8 <$>

source/Network/Xmpp/Sasl/Plain.hs

@@ -45,11 +45,11 @@ import qualified Data.Text as T
 import Network.Xmpp.Sasl.Sasl
 import Network.Xmpp.Sasl.Types
 
-xmppPLAIN :: Maybe T.Text
+xmppPlain :: Maybe T.Text
           -> T.Text
           -> T.Text
           -> XmppConMonad (Either AuthError ())
-xmppPLAIN authzid authcid passwd = runErrorT $ do
+xmppPlain authzid authcid passwd = runErrorT $ do
     _ <- lift . pushElement $ saslInitE "PLAIN" $ -- TODO: Check boolean?
         Just $ Text.decodeUtf8 $ B64.encode $ Text.encodeUtf8 $ plainMessage authzid authcid passwd
     lift $ pushElement saslResponse2E