From be3d38d002fe56d86bf824afe8e6356f7c58c639 Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan Date: Sat, 5 Sep 2015 22:53:01 +0530 Subject: [PATCH] Peer: export bytesDownloaded function --- src/FuncTorrent/Peer.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/FuncTorrent/Peer.hs b/src/FuncTorrent/Peer.hs index 9ca40f4..ae95f83 100644 --- a/src/FuncTorrent/Peer.hs +++ b/src/FuncTorrent/Peer.hs @@ -1,7 +1,8 @@ {-# LANGUAGE OverloadedStrings #-} module FuncTorrent.Peer (Peer(..), - handlePeerMsgs + handlePeerMsgs, + bytesDownloaded ) where import Prelude hiding (lookup, concat, replicate, splitAt, take, filter) @@ -32,7 +33,7 @@ data PState = PState { handle :: Handle type PeerState = State PState data PieceDlState = Pending - | InProgress + | Downloading | Have deriving (Show, Eq) -- 2.37.2