Add 8-way cardinal/intercardinal datatype

2024-10-18 12:39:46 +01:00
parent d256bc0443
commit 8b6f5529ff
12 changed files with 267 additions and 157 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 Nothing Nothing
+        .~ NoSubInventory NoMouseSel Nothing
    _ -> uv & uvWorld %~ enterCombineInv (uv ^. uvConfig)

 updateCombinePositioning :: Universe -> Universe