main :: IO ()
main =
    do CursesH.start
       cstyles <- CursesH.convertStyles styles
       Curses.cursSet Curses.CursorInvisible
       CursesH.gotoTop
       CursesH.drawLine 20 "Hit 'e'!"
       Curses.wMove Curses.stdScr 1 0
       CursesH.drawLine 9 "Input: "
       Curses.refresh
       loop (editWidget cstyles)
    `finally` CursesH.end
main :: IO ()
main =
    do CursesH.start
       cstyles <- CursesH.convertStyles styles
       Curses.cursSet Curses.CursorInvisible
       CursesH.gotoTop
       CursesH.drawLine 20 "Hit 'e'!"
       Curses.wMove Curses.stdScr 1 0
       CursesH.drawLine 9 "Input: "
       Curses.refresh
       loop (editWidget cstyles)
    `finally` CursesH.end
main =
    do CursesH.start
       cstyles <- CursesH.convertStyles styles
       Curses.cursSet Curses.CursorInvisible
       CursesH.gotoTop
       CursesH.drawLine 20 "Hit 'e'!"
       Curses.wMove Curses.stdScr 1 0
       CursesH.drawLine 9 "Input: "
       Curses.refresh
       loop (editWidget cstyles)
    `finally` CursesH.end