Move towards removing machine update field

2022-07-14 19:56:37 +01:00
parent f05d284312
commit ad33ddd569
3 changed files with 171 additions and 2 deletions
@@ -181,7 +181,6 @@ defaultMachine = Machine
    { _mcID = 0
    , _mcWallIDs = mempty
    , _mcUpdate = defaultMachineUpdate
-    , _mcApplyDamage = \_ _ -> id
    , _mcDraw = const mempty
    , _mcColor = white
    , _mcPos = V2 0 0
@@ -193,6 +192,7 @@ defaultMachine = Machine
    , _mcType = StaticMachine
    , _mcName = ""
    , _mcMounts = mempty
+    , _mcCloseSound = Nothing
    }
 defaultMachineUpdate :: Machine -> World -> World
 defaultMachineUpdate mc