From eb878f652ac52348dffdc13d36c1ca44775a7109 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 27 Jan 2020 00:56:51 +0000
Subject: Revert "Use a single Manager across the whole application"

This reverts commit 1f1f0bd8b811740c84215f9ed4fa5ebd8309a990.
---
 src/Xmobar/Plugins/Monitors/Common/Types.hs | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'src/Xmobar/Plugins/Monitors/Common')

diff --git a/src/Xmobar/Plugins/Monitors/Common/Types.hs b/src/Xmobar/Plugins/Monitors/Common/Types.hs
index 8662ba3..c36a562 100644
--- a/src/Xmobar/Plugins/Monitors/Common/Types.hs
+++ b/src/Xmobar/Plugins/Monitors/Common/Types.hs
@@ -25,9 +25,8 @@ module Xmobar.Plugins.Monitors.Common.Types ( Monitor
                                             , io
                                             ) where
 
-import Data.IORef (IORef, modifyIORef, newIORef, readIORef)
-import Control.Monad.Reader (ReaderT, ask, liftIO)
-import Network.HTTP.Conduit (Manager, newManager, tlsManagerSettings)
+import Data.IORef
+import Control.Monad.Reader
 
 type Monitor a = ReaderT MConfig IO a
 
@@ -56,7 +55,6 @@ data MConfig =
        , naString :: IORef String
        , maxTotalWidth :: IORef Int
        , maxTotalWidthEllipsis :: IORef String
-       , manager :: IORef Manager
        }
 
 -- | from 'http:\/\/www.haskell.org\/hawiki\/MonadState'
@@ -104,8 +102,7 @@ mkMConfig tmpl exprts =
        na <- newIORef "N/A"
        mt <- newIORef 0
        mtel <- newIORef ""
-       man <- newIORef =<< newManager tlsManagerSettings
-       return $ MC nc l lc h hc t e p d mn mx mel pc pr bb bf bw up na mt mtel man
+       return $ MC nc l lc h hc t e p d mn mx mel pc pr bb bf bw up na mt mtel
 
 data Opts = HighColor String
           | NormalColor String
-- 
cgit v1.2.3