More robust unicode handling.

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
 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)
   ]