From d483a33d3cde8873eec39e637c6d6b7c9cdf563a Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Wed, 19 Mar 2014 02:06:09 +0400
Subject: Inline getClient function

---
 src/Network/BitTorrent/Client/Types.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Network')

diff --git a/src/Network/BitTorrent/Client/Types.hs b/src/Network/BitTorrent/Client/Types.hs
index e9f9f76e..31ebca2d 100644
--- a/src/Network/BitTorrent/Client/Types.hs
+++ b/src/Network/BitTorrent/Client/Types.hs
@@ -110,3 +110,4 @@ runBitTorrent client action = runReaderT (unBitTorrent action) client
 
 getClient :: BitTorrent Client
 getClient = BitTorrent ask
+{-# INLINE getClient #-}
\ No newline at end of file
-- 
cgit v1.2.3