Refactoring

src/Dodge/Room/Procedural.hs

@@ -62,9 +62,11 @@ roomRectAutoLinks :: Float -> Float -> Room
 roomRectAutoLinks x y = roomRect x y ((ceiling x - 40) `div` 60) ((ceiling y - 40) `div` 60)
 
 makeGrid :: Float -> Int -> Float -> Int -> [(Point2,Point2)]
-makeGrid x nx y ny = nub $ concatMap doublePair 
-                         $ concatMap (\p -> map (\(a,b) -> (p +.+ a,p +.+ b)) $ makeRect x y)
-                         $ gridPoints x nx y ny
+makeGrid x nx y ny 
+    = nub 
+    . concatMap doublePair 
+    . concatMap (\p -> map (\(a,b) -> (p +.+ a,p +.+ b)) $ makeRect x y)
+    $ gridPoints x nx y ny
 
 gridPoints :: Float -> Int -> Float -> Int -> [Point2]
 gridPoints x nx y ny = [(a,b) | a <- take nx $ scanl (+) 0 $ repeat x
@@ -230,7 +232,7 @@ centerVaultRoom n w h d = do
         nsDoors = rectNSWE (d + 20) (negate (d +20)) (-20) 20
         weDoors = rectNSWE 20 (-20) (d + 20) (negate (d +20)) 
         centerPoly = rectWdthHght (d - 20) (d - 20)
-        polys = centerPoly : nsDoors : weDoors : (take 4 $ iterate (map vNormal) northPoly)
+        polys = centerPoly : nsDoors : weDoors : take 4 (iterate (map vNormal) northPoly)
     return $ Room
         { _rmPolys  = polys
         , _rmLinks  =