Tweak rewind gun

2022-12-30 11:43:29 +00:00
parent 5bc764655d
commit 29d6307076
9 changed files with 24 additions and 15 deletions
@@ -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