Make item display universal

This commit is contained in:
2022-06-19 12:56:30 +01:00
parent df1f3ad6b0
commit 541a04f1bc
22 changed files with 349 additions and 358 deletions
+1 -1
View File
@@ -56,7 +56,7 @@ powerFakeout = do
,cleatOnward door]
-- the i is used either for a PickOnePlacement or a room id, this is not great
startRoom :: RandomGen g => Int -> State g (MetaTree Room String)
startRoom :: Int -> State StdGen (MetaTree Room String)
startRoom i = join $ takeOne
[ attachOnward "startThenWeaponRoom" <$> preCritStart <*> weaponRoom i
, rezBoxesWpCrit >>= rToOnward "rezBoxesWpCrit"