From 6a3edf31e2be9f20c08b5de757e6127977ab0afe Mon Sep 17 00:00:00 2001 From: Sam T Date: Mon, 26 Aug 2013 23:25:23 +0400 Subject: ~ Fix qualified names. --- src/Data/BEncode.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Data/BEncode.hs') 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 import qualified Data.ByteString.Char8 as BC import qualified Data.ByteString.Lazy as Lazy import qualified Data.ByteString.Lazy.Builder as B -import qualified Data.ByteString.Lazy.Builder.ASCII as ASCII +import qualified Data.ByteString.Lazy.Builder.ASCII as B import Data.ByteString.Internal as B (c2w, w2c) import Data.Text (Text) import qualified Data.Text.Encoding as T @@ -652,7 +652,7 @@ builder :: BEncode -> B.Builder builder = go where go (BInteger i) = B.word8 (c2w 'i') <> - ASCII.int64Dec i <> + B.int64Dec i <> B.word8 (c2w 'e') go (BString s) = buildString s go (BList l) = B.word8 (c2w 'l') <> @@ -664,7 +664,7 @@ builder = go where mkKV (k, v) = buildString k <> go v - buildString s = ASCII.intDec (B.length s) <> + buildString s = B.intDec (B.length s) <> B.word8 (c2w ':') <> B.byteString s {-# INLINE buildString #-} -- cgit v1.2.3