Fix incorrect creation of unused links pos

src/Dodge/Room/Start.hs

@@ -25,7 +25,7 @@ import Dodge.Item.Weapon.Utility
 import Geometry
 --import Padding
 import Color
---import Shape
+import Shape
 import LensHelp
 
 --import Data.Maybe
@@ -96,11 +96,11 @@ startRoom' = do
     h <- state $ randomR (200,400)
     let plmnts = 
             [ sPS (V2 0 0) 0 $ PutShape $ girderV 40 20 10 (V2 0 (h/2)) (V2 w (h/2))
-            --, mntLS jShape (V2 0 (h/3)) (V3 40 (h/3) 70)
+--            , mntLS jShape (V2 0 (h/3)) (V3 40 (h/3) 70)
             , tankSquareEmboss4 (dim orange) 50 (h-60)
             , tankSquare (dim orange) 50 50
             , tankSquare (dim orange) 50 120
-            --, sps0 $ PutShape $ colorSH orange $ pipePP 2 (V3 50 50 25) (V3 50 120 25)
+            , sps0 $ PutShape $ colorSH orange $ pipePP 2 (V3 50 50 25) (V3 50 120 25)
             ]
     thecol <- rezColor
     treeFromPost [PassDown $ rezBox thecol, PassDown door] . UseAll