Make Placement into a product type

src/Dodge/Room/Ngon.hs

@@ -1,5 +1,6 @@
 module Dodge.Room.Ngon where
 
+import RandomHelp
 import Data.List
 import Data.Maybe
 import Data.Tile
@@ -11,13 +12,14 @@ import Dodge.RoomLink
 import Geometry
 import Tile
 
-roomNgon :: Int -> Float -> Room
-roomNgon n x =
-    defaultRoom
+roomNgon :: RandomGen g => Int -> Float -> State g Room
+roomNgon n x = do
+    thelight <-mntLightLnkCond $ resetPLUse $ rprBool $ const . isInLnk
+    return defaultRoom
         { _rmPolys = [poly]
         , _rmLinks = map toBothLnk lnks -- muout (init lnks) ++ muin[last lnks]
         , _rmPath = mempty -- TODO
-        , _rmPmnts = [mntLightLnkCond $ resetPLUse $ rprBool $ const . isInLnk]
+        , _rmPmnts = [thelight]
         , _rmBound = [poly]
         , _rmFloor = Tiled [makeTileFromPoly poly 2]
         , _rmName = show n ++ "gon"