Client.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
{-# OPTIONS_GHC -Wno-unused-matches #-}

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"