Update BinaryTree.hs