1 files changed, 6 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Tracker/List.hs b/src/Network/BitTorrent/Tracker/List.hs
index f2a4b264..5ab43c86 100644
--- a/src/Network/BitTorrent/Tracker/List.hs
+++ b/src/Network/BitTorrent/Tracker/List.hs
@@ -9,6 +9,7 @@
 --
 --   For more info see: <http://www.bittorrent.org/beps/bep_0012.html>
 --
+{-# LANGUAGE FlexibleInstances #-}
 module Network.BitTorrent.Tracker.List
        ( -- * Tracker list
          TrackerList
@@ -25,6 +26,7 @@ module Network.BitTorrent.Tracker.List
 import Prelude hiding (mapM, foldr)
 import Control.Applicative
 import Control.Exception
+import Data.Default
 import Data.List as L (elem, any, filter, null)
 import Data.Maybe
 import Data.Foldable
@@ -49,6 +51,10 @@ data TrackerList a
   | TierList [Tier a]    -- ^ torrent file 'announce-list' field only
     deriving (Show, Eq)
 
+-- | Empty tracker list. Can be used for trackerless torrents.
+instance Default (TrackerList URI) where
+  def = TierList []
+
 instance Functor TrackerList where
   fmap f (Announce a) = Announce (f a)
   fmap f (TierList a) = TierList (fmap (fmap f) a)