Start unifying drawn cursors

2022-11-03 10:00:41 +00:00
parent 0872a2dd40
commit e6e5427f44
9 changed files with 129 additions and 44 deletions
@@ -0,0 +1,14 @@
+module Dodge.Data.CardinalPoint where
+
+data CardinalPoint
+    = North
+    | East
+    | South
+    | West
+    deriving (Eq, Ord, Show)
+
+data CardinalCover
+    = NSEW
+    | NSE
+    | NSW
+    | NS