Fix tile rendering

src/Dodge/Event.hs

@@ -27,7 +27,7 @@ import Preload.Update
 import qualified IntMapHelp as IM
 
 import Control.Lens
-import Data.Maybe
+--import Data.Maybe
 --import Data.Char
 --import Data.List
 --import Data.Function (on)
@@ -91,10 +91,9 @@ wheelEvent y w = case (_carteDisplay w, _inventoryMode w) of
         | rbDown -> w & carteZoom %~ min 0.75 . max 0.05 . ((1+y*0.1) * )
         | otherwise -> w & selLocation %~ (`mod` numLocs) . (+ yi)
     (_, TopInventory)
-        | rbDown -> fromMaybe (closeObjScrollDir y w) $ (yourItem w ^? itScroll) 
-            <*> pure y
-            <*> pure (you w)
-            <*> pure w
+        | rbDown -> case yourItem w ^? itScroll of
+            Nothing -> closeObjScrollDir y w
+            Just f  -> w & creatures . ix 0 . crInv . ix (_crInvSel $ you w) %~ f y (you w)
         | lbDown -> w & cameraZoom +~ y
         | invKeyDown -> swapInvDir yi $ dirInvPos yi w
         | otherwise -> dirInvPos yi w