main :: IO ()
main = withWindow "GLFW Pal" 640 480 $ \(win, eventsChan) -> do
    glClearColor 1 1 0 1

    whileWindow win $ do
    	events <- gatherEvents
    	forM_ events (closeOnEscape win)
        glClear GL_COLOR_BUFFER_BIT
        swapBuffers win
main :: IO ()
main = withWindow "GLFW Pal" 640 480 $ \(win, eventsChan) -> do
    glClearColor 1 1 0 1

    whileWindow win $ do
    	events <- gatherEvents
    	forM_ events (closeOnEscape win)
        glClear GL_COLOR_BUFFER_BIT
        swapBuffers win
main = withWindow "GLFW Pal" 640 480 $ \(win, eventsChan) -> do
    glClearColor 1 1 0 1

    whileWindow win $ do
    	events <- gatherEvents
    	forM_ events (closeOnEscape win)
        glClear GL_COLOR_BUFFER_BIT
        swapBuffers win