Cleanup

src/Dodge/Default.hs

@@ -23,6 +23,7 @@ import Dodge.Data
 import Dodge.SoundLogic
 import Geometry
 import Picture
+import Control.Lens
 
 defaultEquipment :: Item
 defaultEquipment = defaultItem
@@ -34,9 +35,8 @@ defaultItZoom :: ItZoom
 defaultItZoom = ItZoom 20 0.2 1
 defaultConsumable :: Item
 defaultConsumable = defaultItem
-    { _itConsumption = ItemItselfConsumable  {_icAmount = 1}
-    , _itInvColor = blue
-    }
+    & itUse .~ ConsumeUse CDoNothing 1
+    & itInvColor .~ blue
 
 defaultFlIt :: FloorItem
 defaultFlIt = FlIt {_flItRot=0,_flIt = defaultConsumable, _flItPos = V2 0 0, _flItID = 0}