~singpolyma/cheogram-smtp

1e6ee4a86ebb06f658999cff6cff06affaa90b20 — Stephen Paul Weber 2 years ago 1a1a876
Upstream changed from strict
1 files changed, 1 insertions(+), 2 deletions(-)

M gateway.hs
M gateway.hs => gateway.hs +1 -2
@@ 6,7 6,6 @@ import Control.Concurrent              (threadDelay)
import Control.Error                   (exceptT)
import Network                         (PortID (PortNumber))
import Data.Time.Clock                 (getCurrentTime)
import qualified Data.ByteString.Lazy  as LByteString
import qualified Focus
import qualified StmContainers.Map     as STMMap
import qualified Data.UUID             as UUID


@@ 83,7 82,7 @@ messageHandler fromDomain message = do
			"-t", "-i",
			"-f", textToString $ decodeUtf8 $
				MIME.renderMailbox from
		] (LByteString.fromStrict $ MIME.renderMessage mail)
		] (MIME.renderMessage mail)

messageErrorHandler ::
	   STMMap.Map (Maybe Text) XMPP.IQ