Improve terminal update/display

2025-08-19 19:37:36 +01:00
parent 1cfb581e15
commit a373b31152
6 changed files with 27 additions and 24 deletions
@@ -28,7 +28,7 @@ import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M

 testStringInit :: Universe -> [String]
-testStringInit u = map show $ u ^.. uvWorld . cWorld . lWorld . terminals . each . tmStatus
+testStringInit _ = []
 -- map shortShow (u ^.. uvWorld . cWorld . lWorld . debris . each . to g)
 --  where
 --    g db = (pz,z,norm v)