diff options
| author | jao <jao@gnu.org> | 2025-02-11 04:40:34 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2025-02-11 19:23:53 +0000 |
| commit | af4390e1f9152ba1bd3142a5ce5b63313e9747f9 (patch) | |
| tree | 16a57104d7700a88b5e9f83f46831530ba2729ce /src/Xmobar/Run/Exec.hs | |
| parent | 7390d759240785f660cbdb0ca55898732aa12c98 (diff) | |
| download | xmobar-af4390e1f9152ba1bd3142a5ce5b63313e9747f9.tar.gz xmobar-af4390e1f9152ba1bd3142a5ce5b63313e9747f9.tar.bz2 | |
prototype for onClick method in Exec
Diffstat (limited to 'src/Xmobar/Run/Exec.hs')
| -rw-r--r-- | src/Xmobar/Run/Exec.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Xmobar/Run/Exec.hs b/src/Xmobar/Run/Exec.hs index 1879361..e5c5c8c 100644 --- a/src/Xmobar/Run/Exec.hs +++ b/src/Xmobar/Run/Exec.hs @@ -21,6 +21,7 @@ module Xmobar.Run.Exec (Exec (..), tenthSeconds, doEveryTenthSeconds) where import Prelude import Data.Char +import Data.Word (Word32) import Xmobar.Run.Timer (doEveryTenthSeconds, tenthSeconds) import Xmobar.System.Signal @@ -37,3 +38,5 @@ class Show e => Exec e where where go = doEveryTenthSeconds (rate e) $ run e >>= cb trigger :: e -> (Maybe SignalType -> IO ()) -> IO () trigger _ sh = sh Nothing + onClick :: e -> Word32 -> IO () + onClick _ _ = return () |