Tweak lasers

2026-03-26 16:17:34 +00:00
parent 80ef7ec909
commit 9081bdc97f
7 changed files with 127 additions and 122 deletions
@@ -33,8 +33,8 @@ import Data.Monoid
 import RandomHelp

 testStringInit :: Universe -> [String]
-testStringInit u = 
-    (fmap show $ u ^.. uvWorld . cWorld . lWorld . creatures . each . crHP . _HP)
+testStringInit _ = []
+    --(fmap show $ u ^.. uvWorld . cWorld . lWorld . creatures . each . crHP . _HP)
 --    <> (fmap show $ u ^.. uvWorld . cWorld . lWorld . machines . each . mcMaterial)
 --testStringInit u = map show (u ^.. uvWorld . cWorld . lWorld . machines . traverse . mcDir)
 --testStringInit u =  map show