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 

Hallo. Es ist ein bisschen modifiziertes Beispiel für das Paket ncurses. Problem ist, dass nichts angezeigt wird. In C-API, wie ich mich erinnere, muss ich jedes Fenster unabhängig aktualisieren. Aber Haskell bietet nur render an. Wo ich falsch liege? Ich möchte ein bewegliches Widget haben.

Answer 1

Sorry für dumme Frage. Sie müssen nur updatePanels anrufen.