summaryrefslogtreecommitdiff
path: root/src/Network/KRPC
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/KRPC')
-rw-r--r--src/Network/KRPC/Manager.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Network/KRPC/Manager.hs b/src/Network/KRPC/Manager.hs
index 7a2120cb..4852eb38 100644
--- a/src/Network/KRPC/Manager.hs
+++ b/src/Network/KRPC/Manager.hs
@@ -52,7 +52,8 @@ 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, hex) 55import Data.BEncode.Pretty (showBEncode)
56import qualified Data.ByteString.Base16 as Base16
56import Data.ByteString as BS 57import Data.ByteString as BS
57import Data.ByteString.Char8 as BC 58import Data.ByteString.Char8 as BC
58import Data.ByteString.Lazy as BL 59import Data.ByteString.Lazy as BL
@@ -218,7 +219,7 @@ withManager opts addr hs = bracket (newManager opts addr hs) closeManager
218querySignature :: MethodName -> TransactionId -> SockAddr -> Text 219querySignature :: MethodName -> TransactionId -> SockAddr -> Text
219querySignature name transaction addr = T.concat 220querySignature name transaction addr = T.concat
220 [ "&", T.decodeUtf8 name 221 [ "&", T.decodeUtf8 name
221 , " #", hex transaction -- T.decodeUtf8 transaction 222 , " #", T.decodeUtf8 (Base16.encode transaction) -- T.decodeUtf8 transaction
222 , " @", T.pack (show addr) 223 , " @", T.pack (show addr)
223 ] 224 ]
224 225