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/Day6.newt
+++ b/aoc2024/Day6.newt
@@ -28,7 +28,7 @@ instance Eq Dir where
  a == b = show a == show b

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

 Done : U
 Done = SortedMap (Point × Dir) Unit