Commit before making all walls zoned

2021-09-30 13:36:07 +01:00
parent d7f975d40e
commit eb393708c4
7 changed files with 34 additions and 25 deletions
@@ -1,3 +1,4 @@
+{-# LANGUAGE TupleSections #-}
 module Dodge.Layout 
    where
 import Dodge.Data
@@ -55,7 +56,7 @@ generateLevelFromRoomList gr w
  where
    path = pairsToGraph dist pairPath
    pairPath = concatMap _rmPath rs
-    plmnts = concat $ map (\r -> map ((,) (_rmShift r)) (_rmPS r)) rs
+    plmnts = concatMap (\r -> map (_rmShift r ,) (_rmPS r)) rs
    rs = zipWith addTile zs rs'
    zs = map fromIntegral $ randomRs (0,63::Int) $ _randGen w
    rs' = evalState gr $ _randGen w