handleKeyEnter :: St -> EventMName (BrickTypes.Next St)
handleKeyEnter st = do
  let st'' = eraseCommandLine' st'
  BrickMain.continue st''
  where
    editor = st ^. cliEditor          
    editContents = BrickWidgetsEdit.getEditContents $ editor
    st' = enterNewCLICommand st editContents
handleKeyEnter :: St -> EventMName (BrickTypes.Next St)
handleKeyEnter st = do
  let st'' = eraseCommandLine' st'
  BrickMain.continue st''
  where
    editor = st ^. cliEditor          
    editContents = BrickWidgetsEdit.getEditContents $ editor
    st' = enterNewCLICommand st editContents
handleKeyEnter st = do
  let st'' = eraseCommandLine' st'
  BrickMain.continue st''
  where
    editor = st ^. cliEditor          
    editContents = BrickWidgetsEdit.getEditContents $ editor
    st' = enterNewCLICommand st editContents