16 lines
404 B
Haskell
16 lines
404 B
Haskell
module Dodge.Reloading.Action where
|
|
import Dodge.SoundLogic.ExternallyGeneratedSounds
|
|
import Dodge.Data.LoadAction
|
|
|
|
loadInsert :: Int -> LoadAction
|
|
loadInsert x = LoadInsert x insertS
|
|
|
|
loadPartialInsert :: Int -> Int -> LoadAction
|
|
loadPartialInsert x = LoadAdd x insertOneS
|
|
|
|
loadEject :: Int -> LoadAction
|
|
loadEject x = LoadEject x ejectS
|
|
|
|
loadPrime :: Int -> LoadAction
|
|
loadPrime x = LoadPrime x primeS
|