X-Git-Url: https://git.rkrishnan.org/?p=functorrent.git;a=blobdiff_plain;f=src%2FFuncTorrent%2FMetainfo.hs;fp=src%2FFuncTorrent%2FMetainfo.hs;h=3f860ec1d062d3fe46b24e4e112e8eea393db959;hp=801b53d4a88d039f79cb4102767bea9b909fa247;hb=972e7a451abd851317146c196bc675fd11751fc8;hpb=2604888f7e205cfe87a6cc9f667936f6e8c4e536

diff --git a/src/FuncTorrent/Metainfo.hs b/src/FuncTorrent/Metainfo.hs
index 801b53d..3f860ec 100644
--- a/src/FuncTorrent/Metainfo.hs
+++ b/src/FuncTorrent/Metainfo.hs
@@ -62,12 +62,11 @@ bvalToInfo (Bdict m) = let (Bint pieceLength') = m ! "piece length"
                            -- is the key "files" present? If so, it is a multi-file torrent
                            -- if not, it is a single file torrent.
                            filesIfMulti = lookup "files" m
-                           (Bint length') = m ! "length"
-                           md5sum' = Nothing
                            partialInfo = Info { pieceLength = pieceLength'
                                                , pieces = pieces'
                                                , private = private'
                                                , name = unpack name'
+                                               , filemeta = []
                                                }
                        in
                          case filesIfMulti of