Allow for custom reloading sounds

src/Dodge/Reloading/Action.hs

@@ -0,0 +1,15 @@
+module Dodge.Reloading.Action where
+import Dodge.SoundLogic.ExternallyGeneratedSounds
+import Dodge.Data.LoadAction
+
+loadInsert :: Int -> LoadAction
+loadInsert x = Insert x insertS Nothing
+
+loadPartialInsert :: Int -> Int -> LoadAction
+loadPartialInsert x y = Insert x insertOneS (Just y)
+
+loadEject :: Int -> LoadAction
+loadEject x = Eject x ejectS
+
+loadPrime :: Int -> LoadAction
+loadPrime x = Prime x primeS