deviceTreeCreate :: MonadIO m => Maybe Text -> Maybe Device -> Map Text DeviceTree -> m DeviceTree
deviceTreeCreate subsystem dev children = atomically (deviceTreeCreate' subsystem dev children)
deviceTreeCreate :: MonadIO m => Maybe Text -> Maybe Device -> Map Text DeviceTree -> m DeviceTree
deviceTreeCreate subsystem dev children = atomically (deviceTreeCreate' subsystem dev children)
deviceTreeCreate subsystem dev children = atomically (deviceTreeCreate' subsystem dev children)