{-# OPTIONS_GHC -fno-warn-orphans #-}
module Party where
import Employee

glCons :: Employee -> GuestList -> GuestList
glCons emp gl = if (elem emp gl_list) then gl
                else GL ([emp]++gl_list) (g_fun+(empFun emp))
  where
    (GL gl_list g_fun) = gl

instance Monoid GuestList where
  mappend gl1 gl2 = GL (gl1_list ++ gl2_list) (gl1_fun + gl2_fun)
    where
      (GL gl1_list gl1_fun) = gl1
      (GL gl2_list gl2_fun) = gl2
  mempty = GL [] 0

moreFun :: GuestList -> GuestList -> GuestList
moreFun gl1@(GL _ fun1) gl2@(GL _ fun2) = if (fun1 < fun2) then gl2
                                          else gl1


treeFold ::  b -> (b->[a]->b) -> Tree a ->b
treeFold b _ Empty = b
treeFold b f (Node root forest) = f b