Cleanup

2022-04-07 21:39:39 +01:00
parent 9d4b1d5d70
commit 100f776ddd
11 changed files with 46 additions and 99 deletions
@@ -30,7 +30,6 @@ footstepSideEffect cr w = case cr ^? crStance . carriage of
  where
    maxStride = _strideLength (_crStance cr)

-
 makeFootstepSound :: Int -> Int -> FootForward -> Point2 -> World -> World
 makeFootstepSound currentStride maxStride ff p
    | currentStride > maxStride = soundMultiFrom footor p (chooseFootSound ff) Nothing