Tweak turret health

2026-03-16 13:08:24 +00:00
parent 8d4efb1f8e
commit 0ca3bf33c9
6 changed files with 118 additions and 65 deletions
@@ -32,7 +32,7 @@ import Data.Foldable
 import Data.Monoid

 testStringInit :: Universe -> [String]
-testStringInit _ = []
+testStringInit u = fmap show $ u ^.. uvWorld . cWorld . lWorld . machines . each . mcHP
 --testStringInit u = map show (u ^.. uvWorld . cWorld . lWorld . machines . traverse . mcDir)
 --testStringInit u =  map show
 --    (u ^.. uvWorld . cWorld . lWorld . machines . traverse .mcType . _McDistributer)