From 917e867b0f34213057ea52e765fba6d7fa55410e Mon Sep 17 00:00:00 2001
From: Edoardo La Greca
Date: Tue, 1 Jul 2025 17:32:29 +0200
Subject: fix third exercise

---
 lec02/LogAnalysis.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lec02/LogAnalysis.hs')

diff --git a/lec02/LogAnalysis.hs b/lec02/LogAnalysis.hs
index 6d79ca6..88d3945 100644
--- a/lec02/LogAnalysis.hs
+++ b/lec02/LogAnalysis.hs
@@ -40,9 +40,9 @@ insert :: LogMessage -> MessageTree -> MessageTree
 insert (Unknown _) t = t
 insert _ t@(Node _ (Unknown _) _) = t -- should never happen
 insert m Leaf = Node Leaf m Leaf
-insert m@(LogMessage _ newTime _) (Node tl (LogMessage _ time _) tr)
-    | newTime < time = insert m tl
-    | otherwise = insert m tr
+insert m1@(LogMessage _ newTime _) (Node tl m2@(LogMessage _ time _) tr)
+    | newTime < time = Node (insert m1 tl) m2 tr
+    | otherwise = Node tl m2 (insert m1 tr)
 
 -- Exercise 3
 
-- 
cgit v1.2.3