diff options
Diffstat (limited to 'src/Xmobar')
-rw-r--r-- | src/Xmobar/Plugins/ArchUpdates.hs | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/src/Xmobar/Plugins/ArchUpdates.hs b/src/Xmobar/Plugins/ArchUpdates.hs index a8cf3a9..f803d0f 100644 --- a/src/Xmobar/Plugins/ArchUpdates.hs +++ b/src/Xmobar/Plugins/ArchUpdates.hs @@ -21,19 +21,13 @@ import System.Process (readProcessWithExitCode) import Xmobar.Run.Exec import Xmobar.Plugins.Command (Rate) -data ArchUpdates = ArchUpdates Rate - | ArchUpdates' (String, String, String) Rate +data ArchUpdates = ArchUpdates (String, String, String) Rate deriving (Read, Show) instance Exec ArchUpdates where - alias (ArchUpdates _) = "arch" - alias (ArchUpdates' _ _) = "arch" - rate (ArchUpdates r) = r - rate (ArchUpdates' _ r) = r - run (ArchUpdates r) = run (ArchUpdates' ("up to date", - "1 update available", - "? updates available") r) - run (ArchUpdates' (z, o, m) _) = do + alias (ArchUpdates _ _) = "arch" + rate (ArchUpdates _ r) = r + run (ArchUpdates (z, o, m) _) = do (exit, stdout, _) <- readProcessWithExitCode "checkupdates" [] "" return $ case exit of ExitFailure 2 -> z--ero updates |