Add 8-way cardinal/intercardinal datatype

2024-10-18 12:39:46 +01:00
parent d256bc0443
commit 8b6f5529ff
12 changed files with 267 additions and 157 deletions
@@ -5,7 +5,18 @@ data CardinalPoint
    | East
    | South
    | West
-    deriving (Eq, Ord, Show)
+    deriving (Eq, Ord, Show, Bounded, Enum)
+
+data CardinalEightPoint
+    = North8
+    | NorthEast8
+    | East8
+    | SouthEast8
+    | South8
+    | SouthWest8
+    | West8
+    | NorthWest8
+    deriving (Eq, Ord, Show, Bounded, Enum)

 data CardinalCover
    = NSEW