This commit is contained in:
2022-05-23 15:50:49 +01:00
parent dcd3fdf563
commit c2770e6b5c
7 changed files with 20 additions and 9 deletions
+1 -1
View File
@@ -14,7 +14,7 @@ import Control.Lens
-- previous frame
-- Not sure if it is a good idea
crIsArmouredFrom :: Point2 -> Creature -> Bool
crIsArmouredFrom p cr = hasFrontArmour p cr
crIsArmouredFrom = hasFrontArmour
hasFrontArmour :: Point2 -> Creature -> Bool
hasFrontArmour p cr = fromMaybe False $ do