nse ← atomically newTChan
  _ ← forkIO $ dispatchFromChan resources action response
  return (action,response)

argDispatcher :: Args → TChan Action → TChan T.Text → IO ()
argDispatcher a action result = do
  _ ← when (_traits a) $ onChan T
startCheck :: Resources → IO (TChan Action, TChan T.Text)
startCheck resources = do
  action ← atomically newTChan
  response ← atomically newTChan
  _ ← forkIO $ dispatchFromChan resources action response
  return (action,response)
startCheck resources = do
  action ← atomically newTChan
  response ← atomically newTChan
  _ ← forkIO $ dispatchFromChan resources action response
  return (action,response)