Remove (by commenting out) module item-type system

2024-09-30 11:42:10 +01:00
parent 4545caa7e6
commit 0701c4043e
37 changed files with 877 additions and 696 deletions
@@ -12,9 +12,11 @@ module Dodge.Data.Item.Use (
    module Dodge.Data.Hammer,
    module Dodge.Data.Item.Targeting,
    module Dodge.Data.GenFloat,
-    module Dodge.Data.Item.Scope
+    module Dodge.Data.Item.Scope,
+    module Dodge.Data.Item.BulletMod
 ) where

+import Dodge.Data.Item.BulletMod
 import Dodge.Data.Item.Scope
 import Control.Lens
 import Data.Aeson
@@ -78,8 +80,8 @@ data ItemUse
        , _tgID :: Maybe Int
        , _tgActive :: Bool
        }
-    | BulletTrajectoryUse
-        { _btuBulletTrajectory :: BulletTrajectoryType
+    | BulletModUse
+        { _buMod :: BulletMod
        }
    deriving (Eq, Show, Read) --Generic, Flat)