status-notifier-item-0.1.0.0: src/StatusNotifier/Watcher/Signals.hs

{-# LANGUAGE TemplateHaskell #-}
module StatusNotifier.Watcher.Signals where

import DBus.Generation
import Language.Haskell.TH

import StatusNotifier.Watcher.Constants

-- The bus name is set to nothing here because sender comes through as the
-- unique name of the watcher, not the special bus name that it requests.
generateSignals watcherClientGenerationParams { genBusName = Nothing }
                defaultWatcherInterfaceName watcherSignals

printWatcherSignals =
  runQ (generateSignals watcherClientGenerationParams { genBusName = Nothing }
                defaultWatcherInterfaceName watcherSignals) >>=
       putStrLn . pprint