Fix new game resize bug

src/Dodge/Layout/Tree/Annotate.hs

@@ -5,6 +5,7 @@ module Dodge.Layout.Tree.Annotate
     where
 import Dodge.RandomHelp
 import Dodge.Layout.Tree.Polymorphic
+import Dodge.Layout.Tree.Either
 import Dodge.Room.Procedural
 import Dodge.Room.Link
 import Dodge.Room.Data
@@ -38,7 +39,13 @@ randomPadCorridors  (Node x xs) = do
 
 annoToRoomTree :: RandomGen g => [Annotation] -> State g (Tree (Either Room Room))
 annoToRoomTree [Corridor] = fmap (pure . Right) $ randomiseOutLinks corridor
-annoToRoomTree [FirstWeapon] = weaponRoom
+annoToRoomTree [FirstWeapon] = do
+    --firstWeapon <- takeOne $ [[branchRectWith weaponRoom,blockedCorridor]] ++ replicate 5 [weaponRoom]
+    branchWP <- branchRectWith weaponRoom
+    blockedC <- blockedCorridor
+    firstWeapon <- takeOne $ [return $ appendEitherTree branchWP [blockedC]] ++ replicate 5 weaponRoom
+    --firstWeapon <- takeOne $ replicate 5 weaponRoom
+    firstWeapon
 annoToRoomTree _ = do
     w <- state $ randomR (100,400)
     h <- state $ randomR (200,400)