Check whether tests compile in ghcid

2026-03-29 15:50:58 +01:00
parent 7b9635fe53
commit d278083947
11 changed files with 95 additions and 84 deletions
@@ -28,6 +28,7 @@ updateDoor dr w = case dr ^. drUpdate of
        , foldl' (doDoorMount (doDoorLerp dr (dr ^. drLerp))) w (dr ^. drMounts)
        )

+-- could filter these HERE rather than later?
 doDoorMount :: Point2A -> World -> MountedObject -> World
 doDoorMount pa w = \case
    MountedLight p r c ->