diff --git a/src/Affection.hs b/src/Affection.hs index 61235fe..c948832 100644 --- a/src/Affection.hs +++ b/src/Affection.hs @@ -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