Tweak scrolling, move onto reloading

2023-01-07 23:50:54 +00:00
parent d4122b2d6f
commit f8d9b54586
7 changed files with 27 additions and 35 deletions
@@ -66,7 +66,7 @@ showAutoRechargeProgress lc = case lc of

 showReloadProgress :: Creature -> HeldConsumption -> String
 showReloadProgress cr ic = case cr ^? crInvSel . iselAction of
-    Just (ReloadAction i la _) -> show i ++ showLoadActionType la (_laLoaded ic)
+    Just (ReloadAction i la) -> show i ++ showLoadActionType la (_laLoaded ic)
    _ -> case ic ^? laProgress . _Just . ix 0 of
        Nothing -> show $ _laLoaded ic
        Just la -> show (_actionTime la) ++ showLoadActionType la (_laLoaded ic)