From df36230da4d10d32758736d30eab0fd2073f0578 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Wed, 11 Jul 2007 18:50:35 +0200 Subject: removed from monitors code not used anymore darcs-hash:20070711165035-d6583-e556a6910bf8deb91677a5d590eb45f157a400d7.gz --- Monitors/Swap.hs | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'Monitors/Swap.hs') 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: " -- 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 --} -- cgit v1.2.3