Flatten HUDElement
This commit is contained in:
@@ -34,7 +34,7 @@ invDP =
|
||||
& ldpPos . spPixelOff .~ V2 6 0
|
||||
|
||||
invCursorParams :: World -> CursorDisplay
|
||||
invCursorParams w = BoundaryCursor $ case w ^? hud . hudElement . subInventory of
|
||||
invCursorParams w = BoundaryCursor $ case w ^? hud . subInventory of
|
||||
-- Just ExamineInventory{} -> [North, South, East, West]
|
||||
Just CombineInventory{} -> []
|
||||
_ | ButtonRight `M.member` _mouseButtons (_input w) -> [North, South, East, West]
|
||||
|
||||
Reference in New Issue
Block a user