Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -6,7 +6,7 @@ import Data.Maybe

 inTermFocus :: World -> Bool
 inTermFocus w = fromMaybe False $ do
-    tmid <- w ^? hud . hudElement . subInventory . termID
-    hasfocus <- w ^? terminals . ix tmid . tmInput . tiFocus
-    connectionstatus <- w ^? terminals . ix tmid . tmStatus
+    tmid <- w ^? cWorld . hud . hudElement . subInventory . termID
+    hasfocus <- w ^? cWorld . terminals . ix tmid . tmInput . tiFocus
+    connectionstatus <- w ^? cWorld . terminals . ix tmid . tmStatus
    return $ hasfocus && connectionstatus == TerminalReady