Cleanup module pathing

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

@@ -0,0 +1,32 @@
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+
+module Dodge.Data.Item.Use.Consumption.LoadAction where
+
+import Control.Lens
+import Data.Aeson
+import Data.Aeson.TH
+import Dodge.Data.Hammer
+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)
+
+data InvSel = InvSel {_iselPos :: Int, _iselAction :: InvSelAction}
+    deriving (Eq, Ord, Show, Read)
+
+data InvSelAction
+    = NoInvSelAction
+    | ReloadAction {_actionProgress :: Int, _reloadAction :: LoadAction, _actionHammer :: HammerType}
+    deriving (Eq, Ord, Show, Read)
+
+makeLenses ''LoadAction
+makeLenses ''InvSel
+makeLenses ''InvSelAction
+deriveJSON defaultOptions ''LoadAction
+deriveJSON defaultOptions ''InvSel
+deriveJSON defaultOptions ''InvSelAction