cmdProc :: Chan Cmd -> NodeProcessM ()
cmdProc chan =
  forever $ do
    handleCmd =<<
      liftIO (readChan chan)
cmdProc :: Chan Cmd -> NodeProcessM ()
cmdProc chan =
  forever $ do
    handleCmd =<<
      liftIO (readChan chan)
cmdProc chan =
  forever $ do
    handleCmd =<<
      liftIO (readChan chan)