14 lines
225 B
Haskell
14 lines
225 B
Haskell
|
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]
|
||
|
|
|