Lint

2024-12-28 10:12:01 +00:00
parent 2abb70334f
commit 2e67924339
8 changed files with 90 additions and 96 deletions
@@ -112,7 +112,7 @@ drawCircCollisionTest :: World -> Picture
 drawCircCollisionTest w = concat $ do
    a <- w ^. input . heldWorldPos . at ButtonLeft
    b <- w ^. input . heldWorldPos . at ButtonRight
-    let col | (anythingHitCirc 2 a b w) = red
+    let col | anythingHitCirc 2 a b w = red
            | otherwise = green
    return $
        setLayer DebugLayer (color col $ line [a, b])