From 7c14f44783d4f5e241ce37027dd60fefcc3f5382 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Tue, 11 Jun 2013 11:01:27 +0400
Subject: ~ Use data-default for default values.

---
 src/Network/BitTorrent/Internal.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Network/BitTorrent/Internal.hs')

diff --git a/src/Network/BitTorrent/Internal.hs b/src/Network/BitTorrent/Internal.hs
index 91dc35d5..38087f0d 100644
--- a/src/Network/BitTorrent/Internal.hs
+++ b/src/Network/BitTorrent/Internal.hs
@@ -27,6 +27,7 @@ import Control.Concurrent.STM
 import Control.Exception
 
 import Data.IORef
+import Data.Default
 import Data.Function
 import Data.Ord
 import Data.Set as S
@@ -196,7 +197,7 @@ withPeerSession ss @ SwarmSession {..} addr
                 maxOutcomingTime (sendKA sock)
          <*> newChan
          <*> pure clientBitfield
-         <*> newIORef initSessionStatus
+         <*> newIORef def
       return (sock, ps)
 
     closeSession = close . fst
-- 
cgit v1.2.3