Fix button not updating bug

src/Dodge/Room/Start.hs

@@ -56,12 +56,12 @@ powerFakeout = do
             ,cleatOnward door]
 
 startRoom :: RandomGen g => Int -> State g (MetaTree Room String)
-startRoom i = join (takeOne
+startRoom i = join $ takeOne
     [ attachOnward "startThenWeaponRoom" <$> preCritStart <*> weaponRoom i
     , rezBoxesWpCrit            >>= rToOnward "rezBoxesWpCrit"
     , runPastStart i             >>= rToOnward ("runPastStart " ++ show i)
     , attachOnward "startThenCraft" <$> preCritStart <*> (startCrafts >>= roomsContaining [])
-    ])
+    ]
 randomChallenges :: RandomGen g => State g (MetaTree Room String)
 randomChallenges = shootingRange
 --        join (takeOne
@@ -84,7 +84,7 @@ rezBoxStart = do
 
 preCritStart :: RandomGen g => State g (MetaTree Room String)
 preCritStart = join $ takeOneWeighted 
-    [10,10,1::Float]
+    [100,100,1::Float]
     [rezBoxes
     ,rezBox'
     ,attachOnward "rezBoxPowerFakeout" <$> rezBox' <*> powerFakeout'