summaryrefslogtreecommitdiff
path: root/src/Network/KRPC/Manager.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/KRPC/Manager.hs')
-rw-r--r--src/Network/KRPC/Manager.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/KRPC/Manager.hs b/src/Network/KRPC/Manager.hs
index c90c92f9..7a2120cb 100644
--- a/src/Network/KRPC/Manager.hs
+++ b/src/Network/KRPC/Manager.hs
@@ -52,7 +52,7 @@ import Control.Monad.Reader
52import Control.Monad.Trans.Control 52import Control.Monad.Trans.Control
53import Data.BEncode as BE 53import Data.BEncode as BE
54import Data.BEncode.Internal as BE 54import Data.BEncode.Internal as BE
55import Data.BEncode.Pretty (showBEncode) 55import Data.BEncode.Pretty (showBEncode, hex)
56import Data.ByteString as BS 56import Data.ByteString as BS
57import Data.ByteString.Char8 as BC 57import Data.ByteString.Char8 as BC
58import Data.ByteString.Lazy as BL 58import Data.ByteString.Lazy as BL
@@ -218,7 +218,7 @@ withManager opts addr hs = bracket (newManager opts addr hs) closeManager
218querySignature :: MethodName -> TransactionId -> SockAddr -> Text 218querySignature :: MethodName -> TransactionId -> SockAddr -> Text
219querySignature name transaction addr = T.concat 219querySignature name transaction addr = T.concat
220 [ "&", T.decodeUtf8 name 220 [ "&", T.decodeUtf8 name
221 , " #", T.decodeUtf8 transaction 221 , " #", hex transaction -- T.decodeUtf8 transaction
222 , " @", T.pack (show addr) 222 , " @", T.pack (show addr)
223 ] 223 ]
224 224