Remove (by commenting out) module item-type system

src/Dodge/Item/Scope.hs

@@ -5,6 +5,9 @@ module Dodge.Item.Scope (
     homingModule,
     fletchingModule,
     bulletTargetingModule,
+    augmentedHUD,
+    bulletModule,
+    bulletPayloadModule,
 ) where
 
 import Control.Lens
@@ -33,11 +36,22 @@ homingModule =
 fletchingModule :: Item
 fletchingModule = bulletTargetingModule FlechetteTrajectoryType
 
-bulletTargetingModule :: BulletTrajectoryType -> Item
-bulletTargetingModule btt =
+bulletModule :: BulletMod -> Item
+bulletModule bm =
     defaultHeldItem
-        & itType . iyBase .~ HOMING btt
-        & itUse .~ BulletTrajectoryUse btt
+        & itType . iyBase .~ BULLETMOD bm
+        & itUse .~ BulletModUse bm
+
+bulletTargetingModule :: BulletTrajectoryType -> Item
+bulletTargetingModule = bulletModule . BulletModTrajectory
+
+bulletPayloadModule :: BulletPayload -> Item
+bulletPayloadModule = bulletModule . BulletModPayload
+
+augmentedHUD :: Item
+augmentedHUD = defaultHeldItem
+        & itType . iyBase .~ ATTACH AUGMENTEDHUD
+        & itUse .~ AttachUse Nothing
 
 remoteScreen :: Item
 remoteScreen =