Cleanup, remove records, stop unecessary Aeson compile

src/Dodge/Equipment.hs

@@ -19,7 +19,7 @@ import qualified IntMapHelp as IM
 effectOnRemove :: Item -> Creature -> World -> World
 effectOnRemove itm = case itm ^. itType of
     EQUIP WRISTARMOUR -> onRemoveWristShield itm
-    _ -> \_ -> id
+    _ -> const id
 
 onRemoveWristShield :: Item -> Creature -> World -> World
 onRemoveWristShield itm _ =
@@ -32,7 +32,7 @@ onRemoveWristShield itm _ =
 effectOnEquip :: Item -> Creature -> World -> World
 effectOnEquip itm = case itm ^. itType of
     EQUIP WRISTARMOUR -> onEquipWristShield itm
-    _ -> \_ -> id
+    _ -> const id
 
 onEquipWristShield :: Item -> Creature -> World -> World
 onEquipWristShield itm cr w =