From bb3feb7aca468a5542e8686c747dcdc95be3dcde Mon Sep 17 00:00:00 2001 From: Michal Zielonka Date: Thu, 14 Oct 2021 19:59:35 +0200 Subject: start using kvm library from bsd for receiving swapinfo Using this library allows us to receive swap info which is more similar with result of command swapinfo. --- src/Xmobar/Plugins/Monitors/Swap/FreeBSD.hs | 41 ----------------------------- 1 file changed, 41 deletions(-) delete mode 100644 src/Xmobar/Plugins/Monitors/Swap/FreeBSD.hs (limited to 'src/Xmobar/Plugins/Monitors/Swap/FreeBSD.hs') diff --git a/src/Xmobar/Plugins/Monitors/Swap/FreeBSD.hs b/src/Xmobar/Plugins/Monitors/Swap/FreeBSD.hs deleted file mode 100644 index 0e0c03d..0000000 --- a/src/Xmobar/Plugins/Monitors/Swap/FreeBSD.hs +++ /dev/null @@ -1,41 +0,0 @@ ------------------------------------------------------------------------------ --- | --- Module : Plugins.Monitors.Swap.FreeBSD --- Copyright : (c) Andrea Rossato --- License : BSD-style (see LICENSE) --- --- Maintainer : Jose A. Ortega Ruiz --- Stability : unstable --- Portability : unportable --- --- A swap usage monitor for Xmobar --- ------------------------------------------------------------------------------ - -module Xmobar.Plugins.Monitors.Swap.FreeBSD (parseMEM) where - -import System.BSD.Sysctl (sysctlReadUInt, sysctlReadULong) - -isEnabled :: IO Bool -isEnabled = do - enabled <- sysctlReadUInt "vm.swap_enabled" - return $ enabled == 1 - -parseMEM' :: Bool -> IO [Float] -parseMEM' False = return [] -parseMEM' True = do - swapIn <- sysctlReadUInt "vm.stats.vm.v_swapin" - swapTotal <- sysctlReadULong "vm.swap_total" - let tot = toInteger swapTotal - free = tot - toInteger swapIn - - return $ res (fromInteger tot) (fromInteger free) - where - res :: Float -> Float -> [Float] - res _ 0 = [] - res tot free = [(tot - free) / tot, tot, tot - free, free] - -parseMEM :: IO [Float] -parseMEM = do - enabled <- isEnabled - parseMEM' enabled -- cgit v1.2.3