stomp-queue 0.1.2 → 0.1.3
raw patch · 2 files changed
+15/−7 lines, 2 files
Files
Network/Mom/Stompl/Client/Queue.hs view
@@ -462,6 +462,7 @@ wName :: String, wRec :: Bool, wWait :: Bool,+ wCntl :: Bool, wTx :: Bool, wTo :: OutBound a} @@ -546,6 +547,8 @@ -- | A queue created with 'OForceTx' will throw -- 'QueueException' when used outside a 'Transaction'. | OForceTx+ -- | Do not automatically add a content-length header+ | ONoContentLen deriving (Show, Read, Eq) hasQopt :: Qopt -> [Qopt] -> Bool@@ -811,9 +814,10 @@ wCon = cid, wDest = dst, wName = qn,- wRec = hasQopt OWithReceipt os, - wWait = hasQopt OWaitReceipt os, - wTx = hasQopt OForceTx os, + wRec = hasQopt OWithReceipt os, + wWait = hasQopt OWaitReceipt os, + wTx = hasQopt OForceTx os, + wCntl = hasQopt ONoContentLen os, wTo = conv} ------------------------------------------------------------------------@@ -1025,8 +1029,8 @@ let conv = wTo q s <- conv x rc <- if wRec q then mkUniqueRecc else return NoRec- let m = P.mkMessage P.NoMsg NoSub dest ""- mime (B.length s) tx s x+ let l = if wCntl q then -1 else B.length s+ let m = P.mkMessage P.NoMsg NoSub dest "" mime l tx s x when (wRec q) $ addRec (wCon q) rc logSend $ wCon q P.send (conCon c) m (show rc) hs
stomp-queue.cabal view
@@ -1,7 +1,7 @@ Name: stomp-queue-Version: 0.1.2+Version: 0.1.3 Cabal-Version: >= 1.8-Copyright: Copyright (c) Tobias Schoofs, 2011 - 2013+Copyright: Copyright (c) Tobias Schoofs, 2011 - 2014 License: LGPL license-file: license/lgpl-3.0.txt Author: Tobias Schoofs@@ -39,6 +39,10 @@ . Release History:++ .++ [0.1.3] New Option for newWriter 'ONoContentLen' .