Cleanup

src/Dodge/Default.hs

@@ -208,7 +208,7 @@ defaultMachine = Machine
     { _mcID = 0
     , _mcWallIDs = mempty
     , _mcUpdate = defaultMachineUpdate
-    , _mcDeath  = \_ -> id
+    , _mcDeath  = const id
     , _mcApplyDamage = \_ _ -> id
     , _mcDraw = const mempty
     , _mcColor = white
@@ -244,7 +244,7 @@ defaultDrawButton col bt =
 defaultTerminal :: Terminal
 defaultTerminal = Terminal 
     { _tmID = 0 
-    , _tmProgram = (\_ _ -> [])
+    , _tmProgram = \_ _ -> []
     , _tmButtonID = 0 
     , _tmMachineID = 0 
     , _tmName = "TESTTERMINAL"
@@ -252,7 +252,6 @@ defaultTerminal = Terminal
     , _tmFutureLines = []
     , _tmMaxLines = 14
     , _tmTitle = "TERMINAL IN LOCATION"
-    , _tmSel   = Nothing
     , _tmInput = Nothing
     , _tmScrollCommands = []
     , _tmWriteCommands  = []