From fc8c62752124549f9ac921a18ebc9cc08885a0a9 Mon Sep 17 00:00:00 2001 From: Csaba Hruska Date: Sat, 24 Dec 2016 22:17:31 +0100 Subject: fix DrawContext construction --- src/LambdaCube/GL/Type.hs | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'src/LambdaCube/GL/Type.hs') diff --git a/src/LambdaCube/GL/Type.hs b/src/LambdaCube/GL/Type.hs index 776a425..9769603 100644 --- a/src/LambdaCube/GL/Type.hs +++ b/src/LambdaCube/GL/Type.hs @@ -181,7 +181,7 @@ type GLUniformBinding = GLint data GLSamplerUniform = GLSamplerUniform - { glUniformBinding :: GLUniformBinding + { glUniformBinding :: !GLUniformBinding , glUniformBindingRef :: IORef GLUniformBinding } @@ -190,19 +190,19 @@ instance Eq GLSamplerUniform where data GLDrawContext = GLDrawContext - { glRasterContext :: RasterContext - , glAccumulationContext :: AccumulationContext - , glRenderTarget :: GLRenderTarget - , glProgram :: GLuint - , glTextureMapping :: [(GLTextureUnit,GLTexture)] - , glSamplerMapping :: [(GLTextureUnit,GLSampler)] - , glSamplerUniformMapping :: [(GLTextureUnit,GLSamplerUniform)] + { glRasterContext :: !RasterContext + , glAccumulationContext :: !AccumulationContext + , glRenderTarget :: !GLRenderTarget + , glProgram :: !GLuint + , glTextureMapping :: ![(GLTextureUnit,GLTexture)] + , glSamplerMapping :: ![(GLTextureUnit,GLSampler)] + , glSamplerUniformMapping :: ![(GLTextureUnit,GLSamplerUniform)] } data GLCommand - = GLRenderSlot GLDrawContext SlotName ProgramName - | GLRenderStream GLDrawContext StreamName ProgramName - | GLClearRenderTarget GLRenderTarget [ClearImage] + = GLRenderSlot !GLDrawContext !SlotName !ProgramName + | GLRenderStream !GLDrawContext !StreamName !ProgramName + | GLClearRenderTarget !GLRenderTarget ![ClearImage] instance Show (IORef GLint) where show _ = "(IORef GLint)" -- cgit v1.2.3