UPower.hs

{-# LANGUAGE TemplateHaskell #-}
module System.Taffybar.DBus.Client.UPower where

import DBus.Generation
import System.FilePath
import System.Taffybar.DBus.Client.Params
import System.Taffybar.DBus.Client.Util

generateClientFromFile
  defaultRecordGenerationParams { recordName = Just "UPowerInfo"
                                , recordPrefix = "upi"
                                }
  uPowerGenerationParams { genObjectPath = Just uPowerBaseObjectPath }
  False $
  "dbus-xml" </> "org.freedesktop.UPower.xml"