Partial removal of reloading

2024-09-08 10:21:35 +01:00
parent 581d2494dc
commit e03c8dd830
16 changed files with 256 additions and 187 deletions
@@ -20,9 +20,7 @@ import Dodge.Data.Item.Use.Consumption.LoadAction
 data ReloadStatus = ReloadStatus
    { _iaMax :: Int
    , _iaLoaded :: Int
-    , _iaPrimed :: Bool
-    , _iaCycle :: [LoadAction]
-    , _iaProgress :: Maybe [LoadAction]
+    -- , _iaPrimed :: Bool
    }
    deriving (Eq, Show, Read) --Generic, Flat)