Partial removal of reloading

src/Dodge/Data/Item/Use/Consumption.hs

@@ -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)
 

src/Dodge/Data/Item/Use/Consumption/LoadAction.hs

@@ -10,13 +10,6 @@ import Data.Aeson
 import Data.Aeson.TH
 import Sound.Data
 
-data LoadAction
-    = LoadEject {_actionTime :: Int, _actionSound :: SoundID}
-    | LoadInsert {_actionTime :: Int, _actionSound :: SoundID}
-    | LoadAdd {_actionTime :: Int, _actionSound :: SoundID, _insertMax :: Int}
-    | LoadPrime {_actionTime :: Int, _actionSound :: SoundID}
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
 data Manipulation -- should be ManipulatedObject?
     -- = InvSel {_isel :: SelPos}
     = Manipulator {_manObject :: ManipulatedObject
@@ -42,16 +35,13 @@ data InventoryManipulation
 
 data InvSelAction
     = NoInvSelAction
-    | ReloadAction {_actionProgress :: Int, _reloadAction :: LoadAction, _reloadInvID :: Int}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-makeLenses ''LoadAction
 makeLenses ''ManipulatedObject
 makeLenses ''Manipulation
 makeLenses ''InventoryManipulation
 makeLenses ''NearbyManipulation
 makeLenses ''InvSelAction
-deriveJSON defaultOptions ''LoadAction
 deriveJSON defaultOptions ''InvSelAction
 deriveJSON defaultOptions ''InventoryManipulation
 deriveJSON defaultOptions ''NearbyManipulation