initChildNet :: SNet -> StateT Info IO Info
initChildNet net = do
    info <- get
    createTasks .= False
    net undefined
    createTasks .= True
    return info
initChildNet :: SNet -> StateT Info IO Info
initChildNet net = do
    info <- get
    createTasks .= False
    net undefined
    createTasks .= True
    return info
initChildNet net = do
    info <- get
    createTasks .= False
    net undefined
    createTasks .= True
    return info