Haskell ncurses

Question

main :: IO() 
main = runCurses $ do 
    setEcho False 
    w <- defaultWindow 
    canvas <- newWindow 19 19 0 0 
    panel <- newPanel canvas 
    updateWindow canvas $ do 
    drawString "Hello world!" 
    render 
    waitFor w (\ev -> ev == EventCharacter 'q' || ev == EventCharacter 'Q') 

waitFor :: Window -> (Event -> Bool) -> Curses() 
waitFor w p = loop where 
    loop = do 
     ev <- getEvent w Nothing 
     case ev of 
      Nothing -> loop 
      Just ev' -> unless (p ev') loop 

Hola. Es un ejemplo poco modificado del paquete ncurses. El problema es que no se muestra nada. En C API, como recuerdo, tengo que actualizar cada ventana de forma independiente. Pero Haskell ofrece solo render. Donde estoy equivocado? Quiero tener un widget móvil.

Answer 1

Disculpa por pregunta estúpida. Simplemente tiene que llamar al updatePanels.