Client.hs

{-# LANGUAGE TemplateHaskell #-}

module StatusNotifier.Watcher.Client where

import DBus.Generation
import Language.Haskell.TH
import StatusNotifier.Watcher.Constants
import StatusNotifier.Watcher.Service

generateClient watcherClientGenerationParams watcherInterface

printWatcherClient :: IO ()
printWatcherClient =
  runQ (generateClient watcherClientGenerationParams watcherInterface)
    >>= putStrLn . pprint