resetEdit :: St -> EditorCtrl
resetEdit st = BrickWidgetsEdit.applyEdit transformer $ st ^. cliEditor  
  where
    transformer :: TextZipper String -> TextZipper String
    transformer _ = stringZipper [] Nothing
resetEdit :: St -> EditorCtrl
resetEdit st = BrickWidgetsEdit.applyEdit transformer $ st ^. cliEditor  
  where
    transformer :: TextZipper String -> TextZipper String
    transformer _ = stringZipper [] Nothing
resetEdit st = BrickWidgetsEdit.applyEdit transformer $ st ^. cliEditor  
  where
    transformer :: TextZipper String -> TextZipper String
    transformer _ = stringZipper [] Nothing