Bencode, Metainfo: remove warnings and general cleanup

[functorrent.git] / src / FuncTorrent / Metainfo.hs

diff --git a/src/FuncTorrent/Metainfo.hs b/src/FuncTorrent/Metainfo.hs
index 801b53d4a88d039f79cb4102767bea9b909fa247..3f860ec1d062d3fe46b24e4e112e8eea393db959 100644 (file)
--- 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