eraseCommandLine :: St -> St
eraseCommandLine st = st'
  where
    e'= resetEdit st
    st' = set cliEditor e' st 

-- eraseCommandLine' :: St -> St
-- eraseCommandLine' st = st & cliEditor .~ (resetEdit st)
eraseCommandLine :: St -> St
eraseCommandLine st = st'
  where
    e'= resetEdit st
    st' = set cliEditor e' st 

-- eraseCommandLine' :: St -> St
-- eraseCommandLine' st = st & cliEditor .~ (resetEdit st)
eraseCommandLine st = st'
  where
    e'= resetEdit st
    st' = set cliEditor e' st 

-- eraseCommandLine' :: St -> St
-- eraseCommandLine' st = st & cliEditor .~ (resetEdit st)