From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Sat, 5 Sep 2015 17:23:01 +0000 (+0530)
Subject: Peer: export bytesDownloaded function
X-Git-Url: https://git.rkrishnan.org/pf/content/%22file:/frontends/FTP-and-SFTP.rst?a=commitdiff_plain;h=be3d38d002fe56d86bf824afe8e6356f7c58c639;p=functorrent.git

Peer: export bytesDownloaded function
---

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)