diff options
Diffstat (limited to 'src/Data/BEncode.hs')
-rw-r--r-- | src/Data/BEncode.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs index d18d787..0866f49 100644 --- a/src/Data/BEncode.hs +++ b/src/Data/BEncode.hs | |||
@@ -121,7 +121,7 @@ import qualified Data.ByteString as B | |||
121 | import qualified Data.ByteString.Char8 as BC | 121 | import qualified Data.ByteString.Char8 as BC |
122 | import qualified Data.ByteString.Lazy as Lazy | 122 | import qualified Data.ByteString.Lazy as Lazy |
123 | import qualified Data.ByteString.Lazy.Builder as B | 123 | import qualified Data.ByteString.Lazy.Builder as B |
124 | import qualified Data.ByteString.Lazy.Builder.ASCII as ASCII | 124 | import qualified Data.ByteString.Lazy.Builder.ASCII as B |
125 | import Data.ByteString.Internal as B (c2w, w2c) | 125 | import Data.ByteString.Internal as B (c2w, w2c) |
126 | import Data.Text (Text) | 126 | import Data.Text (Text) |
127 | import qualified Data.Text.Encoding as T | 127 | import qualified Data.Text.Encoding as T |
@@ -652,7 +652,7 @@ builder :: BEncode -> B.Builder | |||
652 | builder = go | 652 | builder = go |
653 | where | 653 | where |
654 | go (BInteger i) = B.word8 (c2w 'i') <> | 654 | go (BInteger i) = B.word8 (c2w 'i') <> |
655 | ASCII.int64Dec i <> | 655 | B.int64Dec i <> |
656 | B.word8 (c2w 'e') | 656 | B.word8 (c2w 'e') |
657 | go (BString s) = buildString s | 657 | go (BString s) = buildString s |
658 | go (BList l) = B.word8 (c2w 'l') <> | 658 | go (BList l) = B.word8 (c2w 'l') <> |
@@ -664,7 +664,7 @@ builder = go | |||
664 | where | 664 | where |
665 | mkKV (k, v) = buildString k <> go v | 665 | mkKV (k, v) = buildString k <> go v |
666 | 666 | ||
667 | buildString s = ASCII.intDec (B.length s) <> | 667 | buildString s = B.intDec (B.length s) <> |
668 | B.word8 (c2w ':') <> | 668 | B.word8 (c2w ':') <> |
669 | B.byteString s | 669 | B.byteString s |
670 | {-# INLINE buildString #-} | 670 | {-# INLINE buildString #-} |