diff options
author | joe <joe@jerkface.net> | 2017-01-22 03:09:05 -0500 |
---|---|---|
committer | joe <joe@jerkface.net> | 2017-01-22 03:09:05 -0500 |
commit | 3f49cc7b02f8d470100a0da270777f986824067f (patch) | |
tree | b67475b0a3b895871ba09e2ac9d09449f2858998 /src/Network/KRPC/Manager.hs | |
parent | aab30811698a3b97173043e56e97f46cd3a91776 (diff) |
More robust unicode handling.
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 | ||