From 34c5473dcff2e583591e2713400947aaa59f752f Mon Sep 17 00:00:00 2001
From: Sibi Prabakaran <sibi@psibi.in>
Date: Sun, 14 Jun 2020 15:42:47 +0530
Subject: More cleanup

---
 src/Xmobar/Plugins/Monitors/Common/Types.hs | 5 -----
 1 file changed, 5 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 e8e9bfd..f1d85c9 100644
--- a/src/Xmobar/Plugins/Monitors/Common/Types.hs
+++ b/src/Xmobar/Plugins/Monitors/Common/Types.hs
@@ -22,7 +22,6 @@ module Xmobar.Plugins.Monitors.Common.Types ( Monitor
                                             , Opts (..)
                                             , Selector
                                             , setConfigValue
-                                            , getConfigValue
                                             , mkMConfig
                                             , io
                                             , PureConfig (..)
@@ -135,10 +134,6 @@ sel s =
     do hs <- ask
        liftIO $ readIORef (s hs)
 
-pmods :: PureConfig -> PSelector a -> (a -> a) -> a
-pmods config value f = let val = value config
-                       in f val
-
 mods :: Selector a -> (a -> a) -> Monitor ()
 mods s m =
     do v <- ask
-- 
cgit v1.2.3