diff options
| author | jao <jao@gnu.org> | 2020-01-27 00:56:51 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2020-01-27 00:56:51 +0000 |
| commit | eb878f652ac52348dffdc13d36c1ca44775a7109 (patch) | |
| tree | 2b318a7438ce74ae5b8013ecfe94e611fc5aa070 /src/Xmobar/Plugins/Monitors/Common/Types.hs | |
| parent | 5a7a0298a3e94f49321f7922f987a1a0396850a8 (diff) | |
| download | xmobar-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/Types.hs')
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/Common/Types.hs | 9 |
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 |