Commit before working on displaying composed items in inventory

2024-09-11 16:04:33 +01:00
parent 60c399935e
commit c72278f728
3 changed files with 18 additions and 7 deletions
@@ -16,14 +16,13 @@ import Data.ByteString.Lazy.Char8 (unpack)
 import qualified Data.Aeson.Encode.Pretty as AEP
 import Control.Lens
 import Dodge.Data.Universe
--import Data.Maybe
--import ShortShow
--import qualified Data.Map.Strict as M
 import qualified IntMapHelp as IM
+
 testStringInit :: Universe -> [String]
-testStringInit u = fromMaybe mempty $ do
-    inv <- fmap invLDT $ u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crInv
-    return $ concatMap (prettyLDT (\(x,_,_,_) -> take 5 (show $ x ^. itType . iyBase))) inv
+testStringInit _ = mempty
+--testStringInit u = fromMaybe mempty $ do
+--    inv <- fmap invLDT $ u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crInv
+--    return $ concatMap (prettyLDT (\(x,_,_,_) -> take 5 (show $ x ^. itType . iyBase))) inv

 --testStringInit u = maybe [] invTree (u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crInv)
 --    [fromMaybe "" $ do