From 479b63d8c30c0bc6e6475882d7fb573db5dad1f9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 17 Jul 2022 21:51:30 +0200
Subject: MonadStorage for context with Storage instance

---
 src/Network.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/Network.hs')

diff --git a/src/Network.hs b/src/Network.hs
index c9a2d8b..7195129 100644
--- a/src/Network.hs
+++ b/src/Network.hs
@@ -4,7 +4,7 @@ module Network (
     getNextPeerChange,
     ServerOptions(..), serverIdentity, defaultServerOptions,
 
-    Peer, peerServer,
+    Peer, peerServer, peerStorage,
     PeerAddress(..), peerAddress,
     PeerIdentity(..), peerIdentity,
     PeerChannel(..),
@@ -101,7 +101,7 @@ data Peer = Peer
     , peerServer_ :: Server
     , peerIdentityVar :: TVar PeerIdentity
     , peerChannel :: TVar PeerChannel
-    , peerStorage :: Storage
+    , peerStorage_ :: Storage
     , peerInStorage :: PartialStorage
     , peerOutQueue :: TQueue (Bool, [TransportHeaderItem], TransportPacket)
     , peerSentPackets :: TVar [SentPacket]
@@ -120,6 +120,9 @@ data SentPacket = SentPacket
 peerServer :: Peer -> Server
 peerServer = peerServer_
 
+peerStorage :: Peer -> Storage
+peerStorage = peerStorage_
+
 instance Eq Peer where
     (==) = (==) `on` peerIdentityVar
 
-- 
cgit v1.2.3