Major item refactor, still broken
This commit is contained in:
@@ -29,7 +29,7 @@ import qualified Data.Map.Strict as M
|
||||
import NewInt
|
||||
|
||||
testStringInit :: Universe -> [String]
|
||||
testStringInit u = map show (IM.keys $ u ^. uvWorld . cWorld . lWorld . itemLocations)
|
||||
testStringInit u = map show (IM.keys $ u ^. uvWorld . cWorld . lWorld . items)
|
||||
<> map show (IM.keys $ u ^. uvWorld . cWorld . lWorld . floorItems)
|
||||
<> map show (u ^. uvWorld . hud . closeItems)
|
||||
-- map shortShow (u ^.. uvWorld . cWorld . lWorld . debris . each . to g)
|
||||
|
||||
Reference in New Issue
Block a user