From: Ramakrishnan Muthukrishnan Date: Sat, 5 Sep 2015 17:23:01 +0000 (+0530) Subject: Peer: export bytesDownloaded function X-Git-Url: https://git.rkrishnan.org/%5B/%5D%20/file/URI:LIT:krugkidfnzsc4/@@named=/frontends/nxhtml.html?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)