From de1fee157b87b62161ac68f32bd6e72ba9a11275 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Fri, 4 Apr 2014 01:03:55 +0400 Subject: [Exchange] newSession now can take infohash only --- src/Network/BitTorrent/Exchange/Session/Metadata.hs | 4 ++++ 1 file changed, 4 insertions(+) (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 79fd03b0..79156e2e 100644 --- a/src/Network/BitTorrent/Exchange/Session/Metadata.hs +++ b/src/Network/BitTorrent/Exchange/Session/Metadata.hs @@ -21,6 +21,7 @@ import Control.Monad.Reader import Control.Monad.State import Data.ByteString as BS import Data.ByteString.Lazy as BL +import Data.Default import Data.List as L import Data.Tuple @@ -41,6 +42,9 @@ data Status = Status makeLenses ''Status +instance Default Status where + def = error "default status" + -- | Create a new scheduler for infodict of the given size. nullStatus :: Int -> Status nullStatus ps = Status [] (Block.empty ps) -- cgit v1.2.3