ウィンドウ表示

Haskell

とりあえずウィンドウ表示です。

module Main where

import Graphics.HGL.Window
import Graphics.HGL.Run

-- イベントハンドラ
update w = do e <- getWindowEvent w
              case e of
                _ -> update w

-- メイン
main = runGraphics $ do
         win <- openWindowEx "Hello" Nothing (100, 100) DoubleBuffered Nothing
         update win
         closeWindow win

　
モジュールが"Main.hs"であれば、

ghc -package HGL Main.hs

こんな感じでビルド。
　
…なぜかプロンプトを最小化しないと、ウィンドウが表示されませんが、、（´Д｀；