diff options
Diffstat (limited to 'src/Network')
-rw-r--r-- | src/Network/KRPC/Manager.hs | 5 |
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 | |||
52 | import Control.Monad.Trans.Control | 52 | import Control.Monad.Trans.Control |
53 | import Data.BEncode as BE | 53 | import Data.BEncode as BE |
54 | import Data.BEncode.Internal as BE | 54 | import Data.BEncode.Internal as BE |
55 | import Data.BEncode.Pretty (showBEncode, hex) | 55 | import Data.BEncode.Pretty (showBEncode) |
56 | import qualified Data.ByteString.Base16 as Base16 | ||
56 | import Data.ByteString as BS | 57 | import Data.ByteString as BS |
57 | import Data.ByteString.Char8 as BC | 58 | import Data.ByteString.Char8 as BC |
58 | import Data.ByteString.Lazy as BL | 59 | import Data.ByteString.Lazy as BL |
@@ -218,7 +219,7 @@ withManager opts addr hs = bracket (newManager opts addr hs) closeManager | |||
218 | querySignature :: MethodName -> TransactionId -> SockAddr -> Text | 219 | querySignature :: MethodName -> TransactionId -> SockAddr -> Text |
219 | querySignature name transaction addr = T.concat | 220 | querySignature 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 | ||