Cleanup

src/Dodge/Room/Room.hs

@@ -133,9 +133,9 @@ rot90Around cen p = cen +.+ vNormal (p -.- cen)
 roomMiniIntro :: RandomGen g => State g (LabSubCompTree Room)
 roomMiniIntro = do
     midroom <- join $ takeOne [miniTree2] --,glassLesson]
-    (return $ chainUses 
+    return (chainUses 
         [return $ UseAll corridor,return $ UseAll corridor,return $ UseAll corridor,return $ UseAll door, midroom,return $ UseAll corridor]
-        ) <&> (,TreeSubLabelling "roomMiniIntro" Nothing)
+        ,TreeSubLabelling "roomMiniIntro" Nothing)
 
 roomCenterPillar :: RandomGen g => State g Room
 roomCenterPillar = shuffleLinks . restrictInLinks ((\p -> dist p (V2 120 0) < 10) . fst) 
@@ -422,7 +422,7 @@ shootingRange = do
     rm3 <- shootersRoom >>= randomiseAllLinks
             . restrictInLinks  (\(V2 x y,_) -> y < 10 && x > 20 && x < 180)
             . restrictOutLinks (\(_,r) -> r == 0)
-    (return $ treeFromPost 
+    return (treeFromPost 
         [PassDown rm1
         ,PassDown $ roomPadCut (rectNSWE 40 (-40) (-80) 80) (V2 0 20)
             & rmPmnts %~ (spanLightI (V2 (-80) 10) (V2 80 10) :)
@@ -431,7 +431,7 @@ shootingRange = do
             & rmPmnts %~ (spanLightI (V2 (-80) 10) (V2 80 10) :)
         ] 
         (UseAll rm3)
-        ) <&> (,TreeSubLabelling "shootingRange" Nothing)
+        ,TreeSubLabelling "shootingRange" Nothing)
 
 spawnerRoom :: RandomGen g => State g (SubCompTree Room)
 spawnerRoom = do