Quick hack to make window rendering passable

Before windows drew even on black backgrounds
2025-11-23 00:24:14 +00:00
parent 229350120a
commit 74c02291c1
7 changed files with 93 additions and 106 deletions
@@ -14,13 +14,7 @@ import Dodge.LevelGen.PlacementHelper
 import Geometry
 import Linear

-putDoubleDoor ::
-    Wall ->
-    WdBl ->
-    Point2 ->
-    Point2 ->
-    Float ->
-    Placement
+putDoubleDoor :: Wall -> WdBl -> Point2 -> Point2 -> Float -> Placement
 putDoubleDoor wl cond a b speed =
    putDoubleDoorThen wl cond 1 a b speed (const $ const Nothing)