Allow for custom reloading sounds

src/Dodge/Data.hs

@@ -10,6 +10,7 @@ circular imports are probably not a good idea.
 module Dodge.Data 
     ( module Dodge.Data
     , module Dodge.Data.Material
+    , module Dodge.Data.LoadAction
     , module Dodge.Data.Wall
     , module Dodge.Combine.Data
     , module Dodge.Distortion.Data
@@ -29,6 +30,7 @@ module Dodge.Data
     , module Dodge.Data.Room
     ) where
 import Dodge.Data.Room
+import Dodge.Data.LoadAction
 import Dodge.Data.Material
 import Dodge.Data.Wall
 import Dodge.RoomCluster.Data
@@ -544,15 +546,6 @@ data ItemPortage
     | WornItem
     | NoPortage
 
-data LoadAction
-    = Eject  {_actionTime :: Int}
-    | Insert {_actionTime :: Int, _insertMax :: Maybe Int }
-    | Prime  {_actionTime :: Int}
-  deriving (Eq,Ord,Show)
-data InvSel = InvSel {_iselPos :: Int, _iselAction :: InvSelAction }
-data InvSelAction
-    = NoInvSelAction
-    | ReloadAction { _actionProgress :: Int, _reloadAction :: LoadAction }
 
 -- I believe this is called every frame, not sure when though
 data ItEffect 
@@ -1477,9 +1470,6 @@ makeLenses ''ItEffect
 makeLenses ''FloorItem
 makeLenses ''ItemConsumption
 makeLenses ''AmmoType
-makeLenses ''LoadAction
-makeLenses ''InvSel
-makeLenses ''InvSelAction
 makeLenses ''TweakParam
 makeLenses ''Prop
 makeLenses ''Modification