हास्केल 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 

हैलो। यह ncurses पैकेज का थोड़ा संशोधित उदाहरण है। समस्या यह है कि कुछ भी प्रदर्शित नहीं होता है। सी एपीआई में, जैसा कि मुझे याद है, मुझे स्वतंत्र रूप से प्रत्येक विंडो को रीफ्रेश करना होगा। लेकिन हास्केल केवल render प्रदान करता है। मैं कहाँ गलत हूँ? मैं कुछ चलने योग्य विजेट चाहता हूँ।

Answer 1

बेवकूफ सवाल के लिए खेद है। आपको बस updatePanels पर कॉल करना है।