Reify debug booleans

2022-06-17 21:34:00 +01:00
parent 261bb0bb6b
commit 5053590792
10 changed files with 73 additions and 49 deletions
@@ -107,7 +107,7 @@ doDrawing pdata u = do
    currentProgram $= Just (_shadProg lwShad)
    uniform (head $  _shadUnis lwShad) $= viewFrom3d
    bindVertexArrayObject $= Just (_vao $ _shadVAO lwShad)
-    if not (_debug_remove_LOS cfig)
+    if not (debugOn Remove_LOS cfig)
        then glDrawArrays 
            (marshalEPrimitiveMode $ _shadPrim lwShad) 
            0