Cleanup

src/Dodge/Room/RezBox.hs

@@ -54,12 +54,10 @@ rezBoxesWp = do
     let n = length $ getLinksOfType (OnEdge North) $  _rmLinks centralRoom
     let rezrooms = map adddoor 
             $ wpAdd theweapon aroom : replicate (n-2) aroom
-    return $ treeFromTrunk [ rezBox thecol
-        ,  door
-        ] 
-        (Node ( centralRoom) (rezrooms ++ [onwardpassage]))
+    return $ treeFromTrunk [ rezBox thecol ,  door ]
+        $ Node centralRoom (rezrooms ++ [onwardpassage])
   where
-    adddoor rm = treeFromPost [ connectsToNorth door ] ( rm)
+    adddoor rm = treeFromPost [ connectsToNorth door ] rm
     connectsToNorth = rmConnectsTo .~ S.member (OnEdge North)
 maybeBlockedPassage :: RandomGen g => State g (Tree Room)
 maybeBlockedPassage = fmap (pure . useAll)
@@ -82,12 +80,10 @@ rezBoxesWpCrit = do
             $ insertAt i (wpAdd theweapon aroom) 
             $ insertAt j (crAdd aroom)
             $ replicate (n-3) aroom
-    return $ treeFromTrunk [ rezBox thecol
-        ,  door
-        ]
-        (Node ( centralRoom) (rezrooms ++ [onwardpassage]))
+    return $ treeFromTrunk [rezBox thecol , door]
+        $ Node centralRoom (rezrooms ++ [onwardpassage])
   where
-    adddoor rm = treeFromPost [ door & rmConnectsTo .~ S.member (OnEdge North)] ( rm)
+    adddoor rm = treeFromPost [ door & rmConnectsTo .~ S.member (OnEdge North)] rm
 
 crAdd :: Room -> Room
 crAdd = rmPmnts .:~ sPS (V2 20 10) (0.5*pi) randC1
@@ -103,10 +99,8 @@ rezBoxes = do
     centralRoom <- shuffleLinks $ (roomRectAutoLinks w h) {_rmPmnts = []}
             & rmLinks %~ setInLinks bottomEdgeTest
     let n = length $ filter bottomEdgeTest $_rmLinks centralRoom
-    return $ treeFromTrunk [ rezBox thecol
-        ,  door
-        ] 
-        (Node ( centralRoom) (replicate (n-1) dbox ++ [Node (useAll door) []]))
+    return $ treeFromTrunk [rezBox thecol,  door] 
+        $ Node centralRoom (replicate (n-1) dbox ++ [Node (useAll door) []])
 
 rezColor :: RandomGen g => State g LightSource
 rezColor = do