Tweak scrolling, move onto reloading

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

@@ -8,7 +8,6 @@ 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
@@ -25,7 +24,7 @@ data InvSel
 
 data InvSelAction
     = NoInvSelAction
-    | ReloadAction {_actionProgress :: Int, _reloadAction :: LoadAction, _actionHammer :: HammerType}
+    | ReloadAction {_actionProgress :: Int, _reloadAction :: LoadAction}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data LeftInvSel = LeftInvSel