onKeyEvent :: Key -> St -> VtyEvent -> EventMName (BrickTypes.Next St)
onKeyEvent keycode st ev = do
  nextEvent <- case keycode of
        GraphicsVty.KEsc -> BrickMain.halt st
        GraphicsVty.KEnter -> handleKeyEnter st
        _ -> BrickMain.continue =<< BrickTypes.handleEventLensed st (cliEditor) BrickWidgetsEdit.handleEditorEvent ev
  --      GraphicsVty.KEnter -> SuspendAndResume IO (st)
  return (nextEvent)
onKeyEvent :: Key -> St -> VtyEvent -> EventMName (BrickTypes.Next St)
onKeyEvent keycode st ev = do
  nextEvent <- case keycode of
        GraphicsVty.KEsc -> BrickMain.halt st
        GraphicsVty.KEnter -> handleKeyEnter st
        _ -> BrickMain.continue =<< BrickTypes.handleEventLensed st (cliEditor) BrickWidgetsEdit.handleEditorEvent ev
  --      GraphicsVty.KEnter -> SuspendAndResume IO (st)
  return (nextEvent)
onKeyEvent keycode st ev = do
  nextEvent <- case keycode of
        GraphicsVty.KEsc -> BrickMain.halt st
        GraphicsVty.KEnter -> handleKeyEnter st
        _ -> BrickMain.continue =<< BrickTypes.handleEventLensed st (cliEditor) BrickWidgetsEdit.handleEditorEvent ev
  --      GraphicsVty.KEnter -> SuspendAndResume IO (st)
  return (nextEvent)