Clean up HW2 a bit more.

HW2.fedorind.hs

@@ -73,7 +73,7 @@ mapTree = fmap
 valueAt :: Path -> Tree a -> Maybe a
 valueAt _ End = Nothing
 valueAt [] (Node a _ _) = Just a
-valueAt (x:xs) (Node a l r) = valueAt xs $ if x == L then l else r
+valueAt (x:xs) (Node _ l r) = valueAt xs $ if x == L then l else r
 
 -- | Find a path to a node that contains the given value.
 --
@@ -94,10 +94,10 @@ valueAt (x:xs) (Node a l r) = valueAt xs $ if x == L then l else r
 --
 
 pathTo :: Eq a => a -> Tree a -> Maybe Path
-pathTo v End = Nothing
+pathTo _ End = Nothing
 pathTo v (Node a l r) = orElse currentNode $ orElse (pathHelper v l L) $ pathHelper v r R
     where
         currentNode = if a == v then Just [] else Nothing
-        pathHelper v tree dir = fmap (dir:) (pathTo v tree)
+        pathHelper _ tree dir = fmap (dir:) (pathTo v tree)
         orElse m1 m2 = if isJust m1 then m1 else m2
         isJust mx = mx /= Nothing