Flatten values in creature manipulation data types

src/Dodge/Update/Scroll.hs

@@ -46,7 +46,7 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
     _ -> w
   where
     rbscrollmax = fromMaybe 1 $ do
-        invid <- you w ^? crManipulation . manObject . inInventory . imSelectedItem
+        invid <- you w ^? crManipulation . manObject . imSelectedItem
         esite <- you w ^? crInv . ix invid . itUse . equipEffect . eeSite
         return $ length $ equipSiteToPositions esite
     y = fromIntegral yi
@@ -117,7 +117,7 @@ moveTweakSel i w = case yourSelectedItem w ^? _Just . itTweaks . tweakParams of
 
 changeTweakParam :: Maybe Int -> Int -> World -> World
 changeTweakParam mi i w = fromMaybe w $ do
-    curpos <- you w ^? crManipulation . manObject . inInventory . imSelectedItem
+    curpos <- you w ^? crManipulation . manObject . imSelectedItem
     paramid <- mi
     params <- yourSelectedItem w ^? _Just . itTweaks . tweakParams . ix paramid
     let x = (_tweakVal params + i) `mod` _tweakMax params