Cleanup

2022-06-17 21:48:23 +01:00
parent 5053590792
commit a7c03671d3
5 changed files with 12 additions and 13 deletions
@@ -107,12 +107,10 @@ doDrawing pdata u = do
    currentProgram $= Just (_shadProg lwShad)
    uniform (head $  _shadUnis lwShad) $= viewFrom3d
    bindVertexArrayObject $= Just (_vao $ _shadVAO lwShad)
-    if not (debugOn Remove_LOS cfig)
-        then glDrawArrays 
-            (marshalEPrimitiveMode $ _shadPrim lwShad) 
-            0 
-            (fromIntegral nWalls)
-        else return ()
+    when (not (debugOn Remove_LOS cfig)) $ glDrawArrays 
+        (marshalEPrimitiveMode $ _shadPrim lwShad) 
+        0 
+        (fromIntegral nWalls)
    --draw walls onto base buffer
    if cfig ^. graphics_wall_textured
        then renderTextureWalls pdata nWalls