diff options
Diffstat (limited to 'Graphics/Rendering')
| -rw-r--r-- | Graphics/Rendering/HelpGL.hs | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/Graphics/Rendering/HelpGL.hs b/Graphics/Rendering/HelpGL.hs index 938147e..201c3a6 100644 --- a/Graphics/Rendering/HelpGL.hs +++ b/Graphics/Rendering/HelpGL.hs @@ -1,16 +1,12 @@ -module Graphics.Rendering.HelpGL -( emptyRGBATexture ) -where - -import Graphics.Rendering.OpenGL as GL -import Foreign.Ptr +module Graphics.Rendering.HelpGL (emptyRGBATexture) where import Foreign.Marshal.Array +import Foreign.Ptr +import Graphics.Rendering.OpenGL as GL (?) :: (Integral a, Num b) => () -> a -> b (?) _ = fromIntegral - emptyRGBATexture :: Int -> Int -> IO () emptyRGBATexture w h = - texImage2D Texture2D NoProxy 0 RGBA' (TextureSize2D (()?w) (()?h)) 0 (PixelData RGBA UnsignedByte nullPtr) + texImage2D Texture2D NoProxy 0 RGBA' (TextureSize2D (() ?w) (() ?h)) 0 (PixelData RGBA UnsignedByte nullPtr) |