Start unifying drawn cursors

src/Dodge/Data/CardinalPoint.hs

@@ -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

src/Dodge/Data/Room.hs

@@ -1,10 +1,14 @@
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
-module Dodge.Data.Room where
+module Dodge.Data.Room (
+    module Dodge.Data.Room,
+    module Dodge.Data.CardinalPoint,
+) where
 
 import Control.Lens
 import qualified Data.Set as S
+import Dodge.Data.CardinalPoint
 import Geometry
 
 data RoomPos = RoomPos
@@ -44,13 +48,6 @@ data RoomLinkType
     | BlockedLink
     deriving (Eq, Ord, Show)
 
-data CardinalPoint
-    = North
-    | East
-    | South
-    | West
-    deriving (Eq, Ord, Show)
-
 data RoomWire
     = --RoomWire Point2 Float
       WallWire Point2 Float Float

src/Dodge/Data/SelectionList.hs

@@ -3,6 +3,8 @@ module Dodge.Data.SelectionList where
 import Color
 import Picture.Data
 import Control.Lens
+import Data.Set (Set)
+import Dodge.Data.CardinalPoint
 
 data SelectionList = SelectionList
     { _slPosX :: Float
@@ -20,9 +22,7 @@ data SelectionWidth = FixedSelectionWidth Int
     | VariableSelectionWidth [Int]
 
 data CursorType = NoCursor
-    | NSEWCursor
-    | NSWCursor
-    | NSCursor
+    | BorderCursor (Set CardinalPoint)
 
 data SelectionItem = SelectionItem
     { _siPictures :: [Picture]