Refactor triplet to Selection datatype

2025-08-26 18:13:27 +01:00
parent 9034c409e1
commit b87c3380b8
16 changed files with 127 additions and 135 deletions
@@ -115,7 +115,7 @@ mouseCursorType u = case u ^. uvWorld . input . mouseContext of
    MouseGameRotate -> rotate a (drawVerticalDoubleArrow 5)
  where
    w = u ^. uvWorld
-    selsec = u ^? uvWorld . hud . diSelection . _Just . _1
+    selsec = u ^? uvWorld . hud . diSelection . _Just . slSec
    a = fromMaybe 0 $ do
        cpos <- w ^? cWorld . lWorld . creatures . ix 0 . crPos
        return . toClosestMultiple (pi / 32) $