UPowerDevice.hs

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

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

generateClientFromFile
  defaultRecordGenerationParams
  { recordName = Just "BatteryInfo"
  , recordPrefix = "battery"
  , recordTypeForName = batteryTypeForName
  }
  uPowerGenerationParams
  False $ "dbus-xml" </> "org.freedesktop.UPower.Device.xml"