Add machine direction to turret direction

2026-03-12 17:58:54 +00:00
parent 24af6a731b
commit be72daf6d5
6 changed files with 35 additions and 18 deletions
@@ -32,7 +32,8 @@ import Data.Foldable
 import Data.Monoid

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