From fa3cd5a2012db49827c12bec62ab995ccee96c8c Mon Sep 17 00:00:00 2001 From: Mauricio Fierro Date: Fri, 22 Sep 2017 15:38:53 -0500 Subject: [PATCH] Delete wrong example Homework 08 --- homework08/src/Employee.hs | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) diff --git a/homework08/src/Employee.hs b/homework08/src/Employee.hs index c25cbb7..6e15b0e 100644 --- a/homework08/src/Employee.hs +++ b/homework08/src/Employee.hs @@ -17,22 +17,7 @@ data Employee = Emp { empName :: Name, empFun :: Fun } testCompany :: Tree Employee testCompany = Node (Emp "Stan" 9) - [ Node (Emp "Bob" 2) - [ Node (Emp "Joe" 5) - [ Node (Emp "John" 1) [] - , Node (Emp "Sue" 5) [] - ] - , Node (Emp "Fred" 3) [] - ] - , Node (Emp "Sarah" 17) - [ Node (Emp "Sam" 4) [] - ] - ] - -testCompany2 :: Tree Employee -testCompany2 - = Node (Emp "Stan" 9) - [ Node (Emp "Bob" 3) -- (8, 8) + [ Node (Emp "Bob" 2) -- (8, 8) [ Node (Emp "Joe" 5) -- (5, 6) [ Node (Emp "John" 1) [] -- (1, 0) , Node (Emp "Sue" 5) [] -- (5, 0)