To openglraw

src/Preload/Render.hs

@@ -12,7 +12,6 @@ import Data.Preload.Render
 import qualified Data.Vector.Mutable as MV
 import Foreign
 import Framebuffer.Setup
-import Graphics.Rendering.OpenGL hiding (Point, imageHeight, scale, translate)
 import Shader
 import Shader.AuxAddition
 import Shader.Bind
@@ -197,10 +196,10 @@ preloadRender = do
     fboHalf3Name <- setupTextureFramebuffer 300 300
 
     -- reset to default framebuffer, ready for drawing direct to screen
-    bindFramebuffer Framebuffer $= defaultFramebufferObject
+    glBindFramebuffer GL_FRAMEBUFFER 0
 
     -- set the clearColor to have 1 alpha
-    clearColor $= Color4 0 0 0 1
+    glClearColor 0 0 0 1
 
     shadV <- MV.new 6
     zipWithM_