Tweak rewind gun

src/Dodge/Data/Creature.hs

@@ -53,7 +53,7 @@ data Creature = Creature
     , _crInvLock :: Bool
     , _crInvEquipped :: IM.IntMap EquipPosition
     , _crEquipment :: M.Map EquipPosition Int
-    , _crLeftInvSel :: Maybe Int
+    , _crLeftInvSel :: LeftInvSel
     , _crState :: CreatureState
     , _crCorpse :: CreatureCorpse --Creature -> Corpse -> SPic
     , _crMaterial :: Material

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

@@ -26,9 +26,16 @@ data InvSelAction
     | ReloadAction {_actionProgress :: Int, _reloadAction :: LoadAction, _actionHammer :: HammerType}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
+data LeftInvSel = LeftInvSel
+    { _lisMPos :: Maybe Int
+    , _lisActive   :: Bool
+    }
+
 makeLenses ''LoadAction
 makeLenses ''InvSel
+makeLenses ''LeftInvSel
 makeLenses ''InvSelAction
 deriveJSON defaultOptions ''LoadAction
 deriveJSON defaultOptions ''InvSelAction
 deriveJSON defaultOptions ''InvSel
+deriveJSON defaultOptions ''LeftInvSel