diff options
Diffstat (limited to 'src/Network/KRPC/Manager.hs')
-rw-r--r-- | src/Network/KRPC/Manager.hs | 4 |
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 | |||
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) | 55 | import Data.BEncode.Pretty (showBEncode, hex) |
56 | import Data.ByteString as BS | 56 | import Data.ByteString as BS |
57 | import Data.ByteString.Char8 as BC | 57 | import Data.ByteString.Char8 as BC |
58 | import Data.ByteString.Lazy as BL | 58 | import Data.ByteString.Lazy as BL |
@@ -218,7 +218,7 @@ withManager opts addr hs = bracket (newManager opts addr hs) closeManager | |||
218 | querySignature :: MethodName -> TransactionId -> SockAddr -> Text | 218 | querySignature :: MethodName -> TransactionId -> SockAddr -> Text |
219 | querySignature name transaction addr = T.concat | 219 | querySignature name transaction addr = T.concat |
220 | [ "&", T.decodeUtf8 name | 220 | [ "&", T.decodeUtf8 name |
221 | , " #", T.decodeUtf8 transaction | 221 | , " #", hex transaction -- T.decodeUtf8 transaction |
222 | , " @", T.pack (show addr) | 222 | , " @", T.pack (show addr) |
223 | ] | 223 | ] |
224 | 224 | ||