Work on Falling carriage state

2026-04-03 10:32:54 +01:00
parent 18dc469408
commit 43a5817ef3
17 changed files with 79 additions and 68 deletions
@@ -82,7 +82,7 @@ makePathBetween = makePathUsing $ not . pathEdgeObstructed

 makePathBetween' :: (Point2 -> Point2 -> World -> Bool) -> (Set.Set EdgeObstacle -> Bool)
    -> Point2 -> Point2 -> World -> Maybe [Int]
-makePathBetween' t1 t2 = makePathUsing' t1 $ t2
+makePathBetween' = makePathUsing'

 pathEdgeObstructed :: Set.Set EdgeObstacle -> Bool
 pathEdgeObstructed pe = any (`Set.member` pe) [WallObstacle WallNotAutoOpen, ChasmObstacle]