Work on mouse wheel scrolling

2022-10-25 22:59:01 +01:00
parent 86a9ab7582
commit 4ffd361f11
15 changed files with 143 additions and 57 deletions
@@ -26,6 +26,8 @@ data HeldConsumption
        , _laCycle :: [LoadAction]
        , _laProgress :: Maybe [LoadAction]
        }
+    | ChargingAmmo { _caCharge :: Int 
+        , _caMax :: Int }
    | NoConsumption
    deriving (Eq, Show, Read) --Generic, Flat)