Cleanup warnings

src/Dodge/Layout/Tree/Either.hs

@@ -30,8 +30,9 @@ appendEitherTree
     -> [Tree (Either a a)]    -- ^ The forest to append
     -> Tree (Either a a)
 appendEitherTree (Node (Left x) ts) ts'  = Node (Left x) $ map (`appendEitherTree` ts') ts
-appendEitherTree (Node (Right x) ts) ts' = Node (Left x) ts'
+appendEitherTree (Node (Right x) _) ts' = Node (Left x) ts'
 
+removeEither :: Either p p -> p
 removeEither (Left y)  = y
 removeEither (Right y) = y
 

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.
  -}