From 298663bc0140a2b4877ec64b444b57521fb01716 Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 11 Feb 2025 04:40:34 +0000 Subject: prototype for onClick method in Exec --- src/Xmobar/Run/Exec.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Xmobar/Run/Exec.hs') 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 () -- cgit v1.2.3