Simplify bullets

2024-12-24 13:59:06 +00:00
parent 15317882e6
commit 37da73bf6d
7 changed files with 70 additions and 70 deletions
@@ -28,8 +28,8 @@ import qualified Data.Map.Strict as M
 testStringInit :: Universe -> [String]
 testStringInit u = 
    (map show $ u ^. uvWorld . cWorld . lWorld . oldMagnets)
-    <>
-    (foldMap prettyShort $ 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