Move selection list offset into option screen data structure

2022-12-22 10:27:01 +00:00
parent 91d65094c9
commit a8fa1e9949
7 changed files with 14 additions and 11 deletions
@@ -8,7 +8,7 @@ import qualified Data.Map.Strict as M

 testStringInit :: Universe -> [String]
 testStringInit u =
-    [ show $ u ^? uvScreenLayers . _head . scSelectionList . slOffset
+    [ show $ u ^? uvScreenLayers . _head . scOffset
    ]
    ++ [  shortShow $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos
    ]