listToVariant_ :: forall a. (DBusTypeable a, Variable a) => [a] -> DBusValue
listToVariant_ xs
  = let elemT = dbusType (undefined :: a) in 
  D.DBusArray elemT $ map toVariant xs
listToVariant_ :: forall a. (DBusTypeable a, Variable a) => [a] -> DBusValue
listToVariant_ xs
  = let elemT = dbusType (undefined :: a) in 
  D.DBusArray elemT $ map toVariant xs
listToVariant_ xs
  = let elemT = dbusType (undefined :: a) in 
  D.DBusArray elemT $ map toVariant xs