Start cleanup of room in-links

src/Dodge/Room/Start.hs

@@ -65,14 +65,16 @@ room2 :: RandomGen g => Int -> State g (SubCompTree Room)
 room2 = lasCenSensEdge    
 
 startRoom :: RandomGen g => Int -> State g (SubCompTree Room)
-startRoom _ = join $ uncurry takeOneWeighted $ unzip 
+startRoom i = join $ uncurry takeOneWeighted $ unzip 
 --    [ (,) (0.5::Float) $ chainUses <$> sequence [minigunFakeout,weaponRoom]
-    [ (,) (1::Float) rezBoxesWp
---    , (,) 1 rezBoxesThenWeaponRoom
---    , (,) 1 rezBoxThenWeaponRoom
---    , (,) 1 rezBoxesWpCrit
---    , (,) 1 $ runPastStart i
+    [ (,) one rezBoxesWp
+    , (,) 1 rezBoxesThenWeaponRoom
+    , (,) 1 rezBoxThenWeaponRoom
+    , (,) one rezBoxesWpCrit
+    , (,) 1 $ runPastStart i
     ]
+  where
+    one = (1::Float)
 
 runPastStart :: RandomGen g => Int -> State g (SubCompTree Room)
 runPastStart i = do