X-Git-Url: https://git.rkrishnan.org/?a=blobdiff_plain;f=src%2FFuncTorrent%2FBencode.hs;h=4703084be6fc467ab3f1b6c1fb8d13db4d993662;hb=3d131e0e70c8feab94301b969874239b8e60b747;hp=294ad892d1e9ba17c974f1b0ecd066377ba2f65f;hpb=850e5bce2491dec8dd4bb50ccae9edebcf8a1f7f;p=functorrent.git diff --git a/src/FuncTorrent/Bencode.hs b/src/FuncTorrent/Bencode.hs index 294ad89..4703084 100644 --- a/src/FuncTorrent/Bencode.hs +++ b/src/FuncTorrent/Bencode.hs @@ -95,3 +95,4 @@ encode (Bdict d) = concat ["d", concat kvlist, "e"] kvlist :: [ByteString] kvlist = [encPair kv | kv <- toList d] encPair (k, v) = concat [encode . Bstr . pack $ k, encode v] +