-- | Create a device tree
deviceTreeCreate' :: Maybe Text -> Maybe Device -> Map Text DeviceTree -> STM DeviceTree
deviceTreeCreate' subsystem dev children = DeviceTree subsystem dev children
   <$> newBroadcastTChan
   <*> newBroadcastTChan
   <*> newBroadcastTChan
   <*> newBroadcastTChan
   <*> newBroadcastTChan
   <*> newBroadcastTChan
deviceTreeCreate' :: Maybe Text -> Maybe Device -> Map Text DeviceTree -> STM DeviceTree
deviceTreeCreate' subsystem dev children = DeviceTree subsystem dev children
   <$> newBroadcastTChan
   <*> newBroadcastTChan
   <*> newBroadcastTChan
   <*> newBroadcastTChan
   <*> newBroadcastTChan
   <*> newBroadcastTChan
deviceTreeCreate' subsystem dev children = DeviceTree subsystem dev children
   <$> newBroadcastTChan
   <*> newBroadcastTChan
   <*> newBroadcastTChan
   <*> newBroadcastTChan
   <*> newBroadcastTChan
   <*> newBroadcastTChan