Linting, haddocking

2021-04-29 15:31:07 +02:00
parent 750a67ea6e
commit 6a38950501
34 changed files with 506 additions and 441 deletions
@@ -18,8 +18,8 @@ resizeSpareFBO xsize ysize pdata = do
        fboName = _spareFBO rdata
        fboTO   = _fboTexture rdata
        fboRBO  = _fboRenderbufferObject rdata
-        xsize' = fromIntegral $ xsize
-        ysize' = fromIntegral $ ysize
+        xsize' = fromIntegral xsize
+        ysize' = fromIntegral ysize
    bindFramebuffer Framebuffer $= fboName
    textureBinding Texture2D $= Just fboTO
    texImage2D Texture2D NoProxy 0 RGBA8 (TextureSize2D xsize' ysize') 0 (PixelData RGBA UnsignedByte nullPtr)