Implement introspection items

2025-01-01 15:20:46 +00:00
parent dae0e0591c
commit 08685909be
11 changed files with 181 additions and 154 deletions
@@ -235,7 +235,7 @@ yourAugmentedItem f x g w = case you w ^? crManipulation . manObject of
    _ -> x

 drawRBOptions :: Configuration -> World -> Picture
-drawRBOptions cfig w = fromMaybe mempty $ do
+drawRBOptions cfig w = fold $ do
    guard $ ButtonRight `M.member` _mouseButtons (_input w)
    invid <- you w ^? crManipulation . manObject . imSelectedItem
    eslist <-