diff options
Diffstat (limited to 'lec02/LogAnalysis.hs')
| -rw-r--r-- | lec02/LogAnalysis.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |