loop ew =
    do c <- CursesH.getKey done
       ew' <- case c of
                Curses.KeyChar 'q' -> exitWith ExitSuccess
                Curses.KeyChar 'e' -> edit ew
                _ -> return ew
       loop ew'
loop ew =
    do c <- CursesH.getKey done
       ew' <- case c of
                Curses.KeyChar 'q' -> exitWith ExitSuccess
                Curses.KeyChar 'e' -> edit ew
                _ -> return ew
       loop ew'
loop ew =
    do c <- CursesH.getKey done
       ew' <- case c of
                Curses.KeyChar 'q' -> exitWith ExitSuccess
                Curses.KeyChar 'e' -> edit ew
                _ -> return ew
       loop ew'