summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Uptime.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Plugins/Uptime.hs')
-rw-r--r--Plugins/Uptime.hs51
1 files changed, 0 insertions, 51 deletions
diff --git a/Plugins/Uptime.hs b/Plugins/Uptime.hs
deleted file mode 100644
index 6d81acd..0000000
--- a/Plugins/Uptime.hs
+++ /dev/null
@@ -1,51 +0,0 @@
-------------------------------------------------------------------------------
--- |
--- Module : Plugins.Uptime
--- Copyright : (c) 2010 Jose Antonio Ortega Ruiz
--- License : BSD3-style (see LICENSE)
---
--- Maintainer : jao@gnu.org
--- Stability : unstable
--- Portability : unportable
--- Created: Sun Dec 12, 2010 20:26
---
---
--- Uptime
---
-------------------------------------------------------------------------------
-
-
-module Plugins.Uptime (Uptime(..)) where
-
-import Plugins
-
-import qualified Data.ByteString.Lazy.Char8 as B
-
-data Uptime = Uptime String Int
- deriving (Read, Show)
-
-instance Exec Uptime where
- alias (Uptime a _) = a
- run (Uptime _ _) = uptime
- rate (Uptime _ r) = r
-
-readUptime :: IO Float
-readUptime =
- fmap (read . B.unpack . head . B.words) (B.readFile "/proc/uptime")
-
-secsPerDay :: Integer
-secsPerDay = 24 * 3600
-
-uptime :: IO String
-uptime = do
- t <- readUptime
- let tsecs = floor t
- secs = tsecs `mod` secsPerDay
- days = tsecs `quot` secsPerDay
- hrs = secs `quot` 3600
- mins = (secs `mod` 3600) `div` 60
- dstr | days == 0 = ""
- | otherwise = show days ++ "d "
- str x | x < 10 = '0':show x
- | otherwise = show x
- return $ dstr ++ str hrs ++ ":" ++ str mins