refactor Ord to be based on compare

2024-12-29 16:16:49 -08:00
parent 413f95940f
commit 6397cac18a
11 changed files with 47 additions and 57 deletions
--- a/aoc2024/Day16.newt
+++ b/aoc2024/Day16.newt
@@ -72,7 +72,7 @@ dirVal East = 2
 dirVal West = 3

 instance Ord Dir where
-  a < b = dirVal a < dirVal b
+  compare a b = compare (dirVal a) (dirVal b)

 instance Eq Dir where
  a == b = dirVal a == dirVal b