Reimplement dragging upwards with mouse

2024-10-25 10:29:27 +01:00
parent 388064895f
commit 0c5a21765a
10 changed files with 204 additions and 187 deletions
@@ -31,7 +31,7 @@ import Regex
 toggleCombineInv :: Universe -> Universe
 toggleCombineInv uv = case uv ^? uvWorld . hud . hudElement . subInventory of
    Just CombineInventory{} -> uv & uvWorld . hud . hudElement . subInventory 
-        .~ NoSubInventory NoMouseSel Nothing
+        .~ NoSubInventory MouseInvNothing Nothing
    _ -> uv & uvWorld %~ enterCombineInv (uv ^. uvConfig)

 updateCombinePositioning :: Universe -> Universe