Re-add twist when reloading, stop reload when full ammo

2022-06-22 20:41:37 +01:00
parent 2ebad5da2a
commit fff5c87092
3 changed files with 4 additions and 1 deletions
@@ -14,6 +14,7 @@ data InvSel = InvSel {_iselPos :: Int, _iselAction :: InvSelAction }
 data InvSelAction
    = NoInvSelAction
    | ReloadAction { _actionProgress :: Int, _reloadAction :: LoadAction, _actionHammer :: HammerType}
+  deriving (Eq,Ord,Show)
 makeLenses ''LoadAction
 makeLenses ''InvSel
 makeLenses ''InvSelAction