Start unifying drawn cursors

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]