1 files changed, 8 insertions, 0 deletions

diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs
index 7d3917f2..7833c261 100644
--- a/src/Data/Torrent.hs
+++ b/src/Data/Torrent.hs
@@ -140,6 +140,10 @@ instance Hashable InfoDict where
   hashWithSalt = Hashable.hashUsing idInfoHash
   {-# INLINE hashWithSalt #-}
 
+-- | Empty info dictionary with zero-length content.
+instance Default InfoDict where
+  def = infoDictionary def def False
+
 -- | Smart constructor: add a info hash to info dictionary.
 infoDictionary :: LayoutInfo -> PieceInfo -> Bool -> InfoDict
 infoDictionary li pinfo private = InfoDict ih li pinfo private
@@ -340,6 +344,10 @@ instance Pretty Torrent where
         "Publisher URL" <:>? ((text . show) <$> tPublisherURL) $$
         "Signature"     <:>? ((text . show) <$> tSignature)
 
+-- | No files, no trackers, no nodes, etc...
+instance Default Torrent where
+  def = nullTorrent def
+
 -- | A simple torrent contains only required fields.
 nullTorrent :: InfoDict -> Torrent
 nullTorrent info = Torrent