Render.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module Render ( render
              ) where


import Game

import Control.Monad.State
import Graphics.Rendering.OpenGL.GL.Framebuffer (clear, ClearBuffer(..))


render :: Game ()
render = do
  liftIO $ clear [ColorBuffer]