[Exchange] newSession now can take infohash only

1 files changed, 4 insertions, 0 deletions

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)