summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins/Monitors/Common
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2020-01-27 00:56:51 +0000
committerjao <jao@gnu.org>2020-01-27 00:56:51 +0000
commiteb878f652ac52348dffdc13d36c1ca44775a7109 (patch)
tree2b318a7438ce74ae5b8013ecfe94e611fc5aa070 /src/Xmobar/Plugins/Monitors/Common
parent5a7a0298a3e94f49321f7922f987a1a0396850a8 (diff)
downloadxmobar-eb878f652ac52348dffdc13d36c1ca44775a7109.tar.gz
xmobar-eb878f652ac52348dffdc13d36c1ca44775a7109.tar.bz2
Revert "Use a single Manager across the whole application"
This reverts commit 1f1f0bd8b811740c84215f9ed4fa5ebd8309a990.
Diffstat (limited to 'src/Xmobar/Plugins/Monitors/Common')
-rw-r--r--src/Xmobar/Plugins/Monitors/Common/Types.hs9
1 files changed, 3 insertions, 6 deletions
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