Cleanup

src/Dodge/Data/SelectionList.hs

@@ -6,7 +6,6 @@ module Dodge.Data.SelectionList where
 import Color
 import Picture.Data
 import Control.Lens
-import Data.Set (Set)
 import Dodge.Data.CardinalPoint
 --import Data.Aeson
 --import Data.Aeson.TH
@@ -33,7 +32,7 @@ data SelectionWidth = FixedSelectionWidth Int
     | UseMaxSelectionItemWidth
 
 data CursorType = NoCursor
-    | BorderCursor (Set CardinalPoint)
+    | BorderCursor [CardinalPoint]
 
 data SelectionItem a = SelectionItem
     { _siPictures :: [Picture]