NetworkManager.hs

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

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

generateClientFromFile
  defaultRecordGenerationParams
  { recordName = Just "NetworkManagerInfo"
  , recordPrefix = "nm"
  }
  nmGenerationParams { genObjectPath = Just nmObjectPath }
  False $
  "dbus-xml" </> "org.freedesktop.NetworkManager.xml"