Move wall damages to external position

src/Dodge/Room/Procedural.hs

@@ -71,7 +71,7 @@ roomRect x y xn yn = defaultRoom
         , _rmHeight = y
         }
     }
-  where 
+  where
     yd = (y - 40) / fromIntegral yn
     xd = (x - 40) / fromIntegral xn
     somelnks poffset ps a = zip (map (+.+ poffset) ps) (repeat a)

src/Dodge/Room/Room.hs

@@ -208,9 +208,9 @@ weaponBetweenPillars = do
         rpIsOnPath rp
         && _rpPlacementUse rp == 0
         && all ((>100) . dist (_rpPos rp)) (usedRoomLinkPoss r)
-    (fmap pure $ roomPillars 30 w h wn hn 
+    (roomPillars 30 w h wn hn 
         <&> rmPmnts .++~ map (`sps` randC1) critPlacementSpots ++ [ sps wpPos (PutFlIt wp) ]
-        <&> cleatOnward) >>= rToOnward ("weaponBetweenPillars_"++itemString wp)
+        <&> cleatOnward) >>= rToOnward ("weaponBetweenPillars_"++itemString wp) . pure
 
 weaponLongCorridor :: RandomGen g => State g (Tree Room)
 weaponLongCorridor = do