qualified gl

This commit is contained in:
nek0 2018-03-27 23:23:13 +02:00
parent c57046ca3b
commit 33c99b8888

View file

@ -30,7 +30,7 @@ import Affection.Subsystems as A
import Affection.Logging as A
import Graphics.Rendering.OpenGL as GL (clear, flush, ClearBuffer(..))
import qualified Graphics.Rendering.OpenGL as GL (clear, flush, ClearBuffer(..))
-- | Main function which bootstraps everything else.
@ -136,9 +136,9 @@ withAffection AffectionConfig{..} = do
-- execute user defined update loop
unless (pausedTime ad) (updateLoop dt)
-- execute user defined draw loop
liftIO $ GL.clear [ColorBuffer, DepthBuffer, StencilBuffer]
liftIO $ GL.clear [GL.ColorBuffer, GL.DepthBuffer, GL.StencilBuffer]
drawLoop
liftIO flush
liftIO GL.flush
-- handle all new draw requests
ad2 <- get
-- actual drawing