From 8526ebaa230d98f70654e6bcfc64dcd511712f7b Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Wed, 26 Feb 2014 08:00:16 +0400
Subject: Minor refactoring

---
 src/Network/BitTorrent/Exchange/Session/Metadata.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/Network/BitTorrent/Exchange/Session/Metadata.hs')

diff --git a/src/Network/BitTorrent/Exchange/Session/Metadata.hs b/src/Network/BitTorrent/Exchange/Session/Metadata.hs
index 02c2269f..79fd03b0 100644
--- a/src/Network/BitTorrent/Exchange/Session/Metadata.hs
+++ b/src/Network/BitTorrent/Exchange/Session/Metadata.hs
@@ -1,14 +1,14 @@
 {-# LANGUAGE TemplateHaskell #-}
 module Network.BitTorrent.Exchange.Session.Metadata
-       ( -- * Metadata transfer state
+       ( -- * Transfer state
          Status
        , nullStatus
 
-         -- * Metadata updates
+         -- * State updates
        , Updates
        , runUpdates
 
-         -- * Metadata piece control
+         -- * Piece transfer control
        , scheduleBlock
        , resetPending
        , cancelPending
@@ -33,6 +33,7 @@ import Network.BitTorrent.Exchange.Block   as Block
 import Network.BitTorrent.Exchange.Message as Message hiding (Status)
 
 
+-- | Current transfer status.
 data Status = Status
   { _pending :: [(PeerAddr IP, PieceIx)]
   , _bucket  :: Bucket
-- 
cgit v1.2.3