Cleanup warnings

src/Dodge/Layout/Tree/Shift.hs

@@ -26,11 +26,11 @@ shiftRoomTreeSearch
 shiftRoomTreeSearch _  Empty = Just []
 shiftRoomTreeSearch bs (Node r ts :<| ts')
     | roomIsClipping = Nothing
-    | otherwise = fmap (r :) . shiftRoomTreeSearch newBounds $ ts' >< children
+    | otherwise = fmap (r :) . shiftRoomTreeSearch newBounds $ ts' >< chldren
   where
     roomIsClipping = or (polysIntersect <$> _rmBound r <*> bs)
     newBounds = _rmBound r ++ bs
-    children = fromList $ zipWith (applyToRoot . shiftRoomToLink) (_rmLinks r) ts
+    chldren = fromList $ zipWith (applyToRoot . shiftRoomToLink) (_rmLinks r) ts
 {- |
 All: Depth first search of trees of rooms, produces a list of lists of rooms that are not clipping.
  -}