From 3f49cc7b02f8d470100a0da270777f986824067f Mon Sep 17 00:00:00 2001 From: joe Date: Sun, 22 Jan 2017 03:09:05 -0500 Subject: More robust unicode handling. --- src/Network/KRPC/Manager.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Network') 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 import Control.Monad.Trans.Control import Data.BEncode as BE import Data.BEncode.Internal as BE -import Data.BEncode.Pretty (showBEncode) +import Data.BEncode.Pretty (showBEncode, hex) import Data.ByteString as BS import Data.ByteString.Char8 as BC import Data.ByteString.Lazy as BL @@ -218,7 +218,7 @@ withManager opts addr hs = bracket (newManager opts addr hs) closeManager querySignature :: MethodName -> TransactionId -> SockAddr -> Text querySignature name transaction addr = T.concat [ "&", T.decodeUtf8 name - , " #", T.decodeUtf8 transaction + , " #", hex transaction -- T.decodeUtf8 transaction , " @", T.pack (show addr) ] -- cgit v1.2.3