Comment out bullet ammo targeting modules

src/Dodge/Item/Display.hs

@@ -57,7 +57,7 @@ itemBaseName itm = case _itType itm of
     ATTACH ait -> showAttachItem ait itm
     AMMOMAG ait -> show ait
     TARGETING tt -> show tt
-    BULLETMOD (BulletModTrajectory btt) -> show btt
+--    BULLETMOD (BulletModTrajectory btt) -> show btt
     BULLETMOD (BulletModPayload btt) -> show btt
     BULLETMOD (BulletModEffect btt) -> show btt
 

src/Dodge/Item/Grammar.hs

@@ -106,7 +106,7 @@ itemToFunction itm = case itm ^. itType of
     ATTACH ZOOMSCOPE -> WeaponScopeSF
     ATTACH HOMINGMODULE -> AmmoTargetingSF LauncherAmmo
     ATTACH AUGMENTEDHUD -> AugmentedHUDSF
-    BULLETMOD BulletModTrajectory{} -> AmmoTargetingSF BulletAmmo
+--    BULLETMOD BulletModTrajectory{} -> AmmoTargetingSF BulletAmmo
     BULLETMOD BulletModPayload{} -> AmmoPayloadSF BulletAmmo
     BULLETMOD BulletModEffect{} -> AmmoEffectSF BulletAmmo
     TARGETING{} -> WeaponTargetingSF

src/Dodge/Item/Scope.hs

@@ -3,7 +3,7 @@ module Dodge.Item.Scope (
     targetingScope,
     remoteScreen,
     homingModule,
-    bulletTargetingModule,
+--    bulletTargetingModule,
     augmentedHUD,
     bulletModule,
     bulletPayloadModule,
@@ -38,8 +38,8 @@ bulletModule bm =
         & itType .~ BULLETMOD bm
         & itUse .~ UseBulletMod {_ubMod = bm}
 
-bulletTargetingModule :: BulletTrajectoryType -> Item
-bulletTargetingModule = bulletModule . BulletModTrajectory
+--bulletTargetingModule :: BulletTrajectoryType -> Item
+--bulletTargetingModule = bulletModule . BulletModTrajectory
 
 bulletPayloadModule :: BulletPayload -> Item
 bulletPayloadModule = bulletModule . BulletModPayload