From ceece8eb3de04edbc84deb683225f05c763aa1b0 Mon Sep 17 00:00:00 2001 From: slotThe Date: Mon, 3 Feb 2020 09:38:02 +0100 Subject: New function `getArgvs` to get all values from user input --- src/Xmobar/Plugins/Monitors/Common/Types.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Xmobar/Plugins/Monitors/Common/Types.hs') diff --git a/src/Xmobar/Plugins/Monitors/Common/Types.hs b/src/Xmobar/Plugins/Monitors/Common/Types.hs index c36a562..fc71da3 100644 --- a/src/Xmobar/Plugins/Monitors/Common/Types.hs +++ b/src/Xmobar/Plugins/Monitors/Common/Types.hs @@ -25,8 +25,9 @@ module Xmobar.Plugins.Monitors.Common.Types ( Monitor , io ) where -import Data.IORef -import Control.Monad.Reader +import Control.Monad.Reader (ReaderT, ask, liftIO) +import Data.IORef (IORef, modifyIORef, newIORef, readIORef) + type Monitor a = ReaderT MConfig IO a -- cgit v1.2.3