summaryrefslogtreecommitdiffhomepage
path: root/Monitors/Swap.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Monitors/Swap.hs')
-rw-r--r--Monitors/Swap.hs13
1 files changed, 0 insertions, 13 deletions
diff --git a/Monitors/Swap.hs b/Monitors/Swap.hs
index e83b1e0..a2091e8 100644
--- a/Monitors/Swap.hs
+++ b/Monitors/Swap.hs
@@ -21,9 +21,6 @@ import qualified Data.ByteString.Lazy.Char8 as B
swapConfig :: IO MConfig
swapConfig = mkMConfig
"Swap: <usedratio>" -- template
- package -- package
- "" -- usage tail?
- [] -- added args
["total", "used", "free", "usedratio"] -- available replacements
fileMEM :: IO B.ByteString
@@ -46,18 +43,8 @@ formatSwap x =
lasts <- mapM (showWithColors f2) tl
return $ firsts ++ lasts
-package :: String
-package = "xmb-swap"
-
runSwap :: [String] -> Monitor String
runSwap _ =
do m <- io $ parseMEM
l <- formatSwap m
parseTemplate l
-
-{-
-main :: IO ()
-main =
- do let af = runSwap []
- runMonitor swapConfig af runSwap
--}