Return to project, unsure about changes

2024-05-25 13:10:50 +01:00
parent 08716e8ade
commit c862c862df
63 changed files with 1137641 additions and 52 deletions
@@ -19,11 +19,12 @@ import Dodge.Data.Universe
 --import qualified Data.Map.Strict as M
 --import qualified IntMapHelp as IM
 testStringInit :: Universe -> [String]
-testStringInit u = [fromMaybe "" $ do
-    cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0
-    i <- cr ^? crManipulation . manObject . inInventory . ispItem
-    fmap (show . canAttachTargetingBelow) (cr ^? crInv . ix i) 
-    ]
+testStringInit _ = []
+--    [fromMaybe "" $ do
+--    cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0
+--    i <- cr ^? crManipulation . manObject . inInventory . ispItem
+--    fmap (show . canAttachTargeting) (cr ^? crInv . ix i) 
+--    ]


 --    getPrettyShort (u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crHotkeys)