golf.hs

insert :: LogMessage -> MessageTree -> MessageTree
insert (Unknown _) t = t
insert m@(LogMessage _ ts1 _) t = case t of
  (Leaf) -> Node Leaf m Leaf
  (Node _ (Unknown _) _) -> t
  (Node t1 m2@(LogMessage _ ts2 _) t2) -> case ts1 < ts2 of
    True  -> Node (insert m t1) m2 t2
    False -> Node t1 m2 (insert m t2)