LogMessage.hs

data MessageType
  = Info
  | Warning
  | Error Int
  deriving (Eq, Show)

type TimeStamp = Int

type LogMessage = Either String Message

data Message = Message
  { messageType :: MessageType
  , timeStamp   :: TimeStamp
  , content     :: String
  } deriving (Eq, Show)

data Tree a
  = Leaf
  | Node (Tree a) a (Tree a)
  deriving (Eq, Show)

insert :: Ord k => (a -> k) -> a -> Tree a -> Tree a
insert _ x Leaf = singleton x
insert k x (Node l y r)
  | k x < k y = Node (insert k x l) y r
  | otherwise = Node l y (insert k x r)

singleton :: a -> Tree a
singleton x = Node Leaf x Leaf

insertMsg :: Message -> Tree Message -> Tree Message
insertMsg = insert timeStamp

insertLogMessage :: LogMessage -> Tree Message -> Tree Message
insertLogMessage (Left _)  t = t
insertLogMessage (Right m) t = insertMsg m t