Remove instantBullets

2024-12-24 12:50:00 +00:00
parent a28ec07ffb
commit 75958c1e2c
9 changed files with 25 additions and 23 deletions
@@ -27,9 +27,9 @@ import qualified Data.Map.Strict as M

 testStringInit :: Universe -> [String]
 testStringInit u = 
-    (map show $ u ^.. uvWorld . cWorld . lWorld . oldMagnets)
+    (map show $ u ^. uvWorld . cWorld . lWorld . oldMagnets)
    <>
-    (map show $ u ^.. uvWorld . cWorld . lWorld . bullets)
+    (foldMap prettyShort $ u ^. uvWorld . cWorld . lWorld . bullets)
 --  fromMaybe mempty $ do
 --        cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0
 --        let itms = IM.elems $ cr ^. crInv