ConstructorIn2.hs.expected

module ConstructorIn2 where


--Any type/data constructor name declared in this module can be renamed.
--Any type variable can be renamed.

--Rename data Constructor 'T' to 'Tree' 
data BTree a = Empty | Tree a (BTree a) (BTree a)
               deriving Show

buildtree :: Ord a => [a] -> BTree a
buildtree [] = Empty
buildtree (x:xs) = insert x (buildtree xs)

insert :: Ord a => a -> BTree a -> BTree a
insert val Empty = Tree val Empty Empty
insert val tree@(Tree tval left right)
   | val > tval = Tree tval left (insert val right)
   | otherwise = Tree tval (insert val left) right

main :: BTree Int
main = buildtree [3,1,2]