Cleanup

src/Dodge/Default.hs

@@ -217,6 +217,7 @@ defaultMachine = Machine
     , _mcDamage = []
     , _mcLSs = []
     , _mcType = StaticMachine
+    , _mcName = ""
     }
 defaultMachineUpdate :: Machine -> World -> World
 defaultMachineUpdate mc
@@ -248,6 +249,7 @@ defaultButton = Button
     , _btText = "Button"
     , _btState = BtOff
     , _btTerminalParams = const NoTerminalParams
+    , _btName = ""
     }
 defaultPT :: Prop
 defaultPT = Projectile
@@ -300,3 +302,4 @@ defaultTLS = TLS
 
 upHammer :: HammerType
 upHammer = HasHammer HammerUp
+