Unify block wall types

2021-10-28 00:05:57 +01:00
parent 74e19008b4
commit 686a9fc3ee
9 changed files with 38 additions and 187 deletions
@@ -5,7 +5,7 @@ import Dodge.Data
 import Control.Lens

 damageBlocksBy :: Int -> Wall -> World -> World
-damageBlocksBy x wl = case wl ^? wlBlockID of
+damageBlocksBy x wl = case _wlBlockID wl of
    Just blid -> blocks . ix blid . blHPs %~ reduceHeadBy x
    Nothing   -> id
  where