Improve starting weapon rooms

src/Dodge/Room/Link.hs

@@ -17,6 +17,7 @@ module Dodge.Room.Link
     , changeLinkFrom
     , randomiseOutLinks
     , chooseOneInLink
+    , restrictRMInLinksPD
     ) where
 import Dodge.Placement.PlaceSpot
 import Dodge.LevelGen.Data
@@ -35,6 +36,9 @@ import qualified Data.Set as S
 chooseOneInLink :: RandomGen g => Room -> State g Room
 chooseOneInLink r = restrictToFstInLink <$> shuffleLinks r
 
+restrictRMInLinksPD :: ((Point2,Float) -> Bool) -> Room -> Room
+restrictRMInLinksPD f = rmLinks %~ restrictLinkType InLink f
+
 restrictToFstInLink :: Room -> Room
 restrictToFstInLink = rmLinks %~ f
   where