Cleanup

src/Dodge/Room/Branch.hs

@@ -22,7 +22,7 @@ branchRectWith t = do
     y <- state $ randomR (100,200)
     b <- t
     rt <- shuffleLinks $ roomRectAutoLinks x y
-    return $ Node ( rt) 
+    return $ Node rt 
         [ Node (useAll door) []
-        , useSide <$> treeFromTrunk [ door] b
+        , treeFromTrunk [door] b
         ]