Client.hs

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE OverloadedStrings #-}
module StatusNotifier.Item.Client where

import DBus.Generation
import DBus.Internal.Types
import StatusNotifier.Util
import System.FilePath

generateClientFromFile
  defaultGenerationParams
  { genTakeSignalErrorHandler = True }
  False
  ("xml" </> "StatusNotifierItem.xml")

defaultPath :: ObjectPath
defaultPath = "/StatusNotifierItem"