6 ex1

2026-10-12 19:13:39 +03:00 · 2025-12-26 18:57:33 +02:00
parent 02aaee9e1c
commit 6ee33f5f5b
1 changed files with 4 additions and 1 deletions
@@ -13,7 +13,10 @@ data Country = Finland | Switzerland | Norway
  deriving Show

 instance Eq Country where
-  (==) = todo
+  Finland == Finland = True
+  Switzerland == Switzerland = True
+  Norway == Norway = True
+  _ == _ = False

 ------------------------------------------------------------------------------
 -- Ex 2: implement an Ord instance for Country so that