Make torch use battery power

src/Dodge/Default/Item.hs

@@ -1,13 +1,11 @@
 module Dodge.Default.Item (
     module Dodge.Default.Item,
     module Dodge.Default.Item.Use,
-    module Dodge.Default.Item.Effect,
 ) where
 
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
 import Dodge.Data.Item
-import Dodge.Default.Item.Effect
 import Dodge.Default.Item.Use
 import Geometry.Data
 
@@ -48,3 +46,10 @@ defaultBulletWeapon = defaultHeldItem
 defaultConsumable :: Item
 defaultConsumable = defaultHeldItem & itUse .~ UseConsume CDoNothing
 
+defaultItEffect :: ItEffect
+defaultItEffect =
+    ItEffect
+        { _ieInv = NoInvEffect
+        , _ieOnInsert = NoInvEffect
+        , _ieOnDrop = NoInvEffect
+        }

src/Dodge/Default/Item/Effect.hs

@@ -1,11 +0,0 @@
-module Dodge.Default.Item.Effect
-    where
-import Dodge.Data.Item.Effect
-
-defaultItEffect :: ItEffect
-defaultItEffect =
-    ItEffect
-        { _ieInv = NoInvEffect
-        , _ieOnInsert = NoInvEffect
-        , _ieOnDrop = NoInvEffect
-        }

src/Dodge/Default/Item/Use/AimParams.hs

@@ -1,4 +1,7 @@
-module Dodge.Default.Item.Use.AimParams where
+module Dodge.Default.Item.Use.AimParams (
+    defaultAimParams,
+    defaultItZoom,
+) where
 
 import Dodge.Data.Item.Use
 import Linear