Tweak display, scrolling of item values

2025-01-07 21:10:29 +00:00
parent b3cf10bd26
commit 5fa5bdf21e
18 changed files with 367 additions and 384 deletions
@@ -11,7 +11,7 @@ import Dodge.WorldEvent.Damage
 import Geometry
 import Picture.Base

-updateLaser :: World -> LaserStart -> (World, Picture)
+updateLaser :: World -> Laser -> (World, Picture)
 updateLaser w pt =
    ( case _lpType pt of
        DamageLaser dam ->