diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-12-03 17:37:59 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-12-03 17:37:59 -0700 |
| commit | ba59711a51b4fee34009b1fe6afdce9ef8e60ae0 (patch) | |
| tree | 7274bd2c9007abe08c8db7cea9e55babfd041125 /Graphics/Rendering | |
| parent | 601f77922490888c3ae9986674e332a5192008ec (diff) | |
| download | terralloc-master.tar.gz terralloc-master.tar.bz2 terralloc-master.zip | |
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) |