1 files changed, 5 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Tracker/List.hs b/src/Network/BitTorrent/Tracker/List.hs
index d92dd4ba..0eb11641 100644
--- a/src/Network/BitTorrent/Tracker/List.hs
+++ b/src/Network/BitTorrent/Tracker/List.hs
@@ -19,6 +19,7 @@ module Network.BitTorrent.Tracker.List
        , trackerList
        , shuffleTiers
        , mapWithURI
+       , Network.BitTorrent.Tracker.List.toList
 
          -- * Traversals
        , traverseAll
@@ -138,6 +139,10 @@ mapWithURI f (TierList xs      ) = TierList (L.map (L.map mapEntry) xs)
   where
     mapEntry (uri, a) = (uri, f uri a)
 
+toList :: TrackerList a -> [[TierEntry a]]
+toList (Announce   e) = [[e]]
+toList (TierList xxs) = xxs
+
 {-----------------------------------------------------------------------
 --  Special traversals (suppressed RPC exceptions)
 -----------------------------------------------------------------------}