Make torch use battery power

src/Dodge/Data/Item/Effect.hs

@@ -22,21 +22,16 @@ data ItInvEffect
     | ChargeIfInInventory
     | SetCharge Int
     | EffectRootNotroot ItInvEffect ItInvEffect
-    | CreateHeldLight
     | CreateShieldWall
     | RemoveShieldWall
     | EffectWhileRoot ItInvEffect
     | EffectWhileAttached ItInvEffect
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data ItFloorEffect = NoFloorEffect
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
 data ItDropEffect = NoDropEffect
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''ItEffect
 deriveJSON defaultOptions ''ItInvEffect
-deriveJSON defaultOptions ''ItFloorEffect
 deriveJSON defaultOptions ''ItDropEffect
 deriveJSON defaultOptions ''ItEffect