Cleanup compiler warnings

src/Dodge/Room/RezBox.hs

@@ -1,5 +1,6 @@
 module Dodge.Room.RezBox where
 
+import Control.Monad
 import qualified Data.Set as S
 import Dodge.Cleat
 import Dodge.Data.GenWorld
@@ -18,7 +19,6 @@ import Geometry
 import LensHelp
 import Padding
 import RandomHelp
-import Control.Monad
 
 rezBox :: LightSource -> Room
 rezBox ls =
@@ -51,8 +51,9 @@ rezBoxesWp = do
     let aroom = rezInvBox thecol -- & rmConnectsTo .~ S.singleton (OnEdge North)
     let isnorth = S.member (OnEdge North) . _rlType
     centralRoom <-
-        shuffleLinks $(roomRectAutoLinks w h){_rmPmnts = []}
-            & rmLinks %~ setLinkType InLink isnorth
+        shuffleLinks $
+            (roomRectAutoLinks w h){_rmPmnts = []}
+                & rmLinks %~ setLinkType InLink isnorth
     onwardpassage <- shootOutPassage
     let n = length $ getLinksOfType (OnEdge North) $ _rmLinks centralRoom
     let rezrooms =
@@ -117,10 +118,11 @@ rezBoxes = do
         shuffleLinks $
             (roomRectAutoLinks w h){_rmPmnts = []}
                 & rmLinks %~ setInLinks bottomEdgeTest
-    let n = length $ filter bottomEdgeTest $_rmLinks centralRoom
-    return $
-        tToBTree "rezBoxes" $treeFromTrunk [rezBox thecol, door] $
-            Node centralRoom (replicate (n -1) dbox ++ [Node (cleatOnward door) []])
+    let n = length $ filter bottomEdgeTest $ _rmLinks centralRoom
+    return
+        . tToBTree "rezBoxes"
+        . treeFromTrunk [rezBox thecol, door]
+        $ Node centralRoom (replicate (n -1) dbox ++ [Node (cleatOnward door) []])
 
 rezColor :: RandomGen g => State g LightSource
 rezColor = do