From 40bb0d66f492abed328ebd7961588b7c3a8ed7a6 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Mon, 23 Jan 2017 07:29:21 +0000 Subject: build fixes --- src/Network/KRPC/Manager.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Network/KRPC/Manager.hs') 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 import Control.Monad.Trans.Control import Data.BEncode as BE import Data.BEncode.Internal as BE -import Data.BEncode.Pretty (showBEncode, hex) +import Data.BEncode.Pretty (showBEncode) +import qualified Data.ByteString.Base16 as Base16 import Data.ByteString as BS import Data.ByteString.Char8 as BC import Data.ByteString.Lazy as BL @@ -218,7 +219,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 - , " #", hex transaction -- T.decodeUtf8 transaction + , " #", T.decodeUtf8 (Base16.encode transaction) -- T.decodeUtf8 transaction , " @", T.pack (show addr) ] -- cgit v1.2.3