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 

Ciao. È un esempio un po 'modificato del pacchetto ncurses. Il problema è che non viene visualizzato nulla. In C API, come ricordo, devo aggiornare ogni finestra in modo indipendente. Ma Haskell offre solo render. Dove mi sbaglio? Voglio avere un widget mobile.

Answer 1

Ci scusiamo per la domanda stupida. Devi solo chiamare updatePanels.