gtk2hs hello world

Hello.hs

import Graphics.UI.Gtk

main :: IO ()
main = do
  initGUI
  window <- windowNew
  label <- labelNew $ Just "Hello, world from gtk2hs!"
  set window [ containerBorderWidth := 20,
               containerChild := label ]
  onDestroy window mainQuit
  widgetShowAll window
  mainGUI