Cleanup

src/Dodge/Menu/Option.hs

@@ -4,7 +4,6 @@ module Dodge.Menu.Option where
 import Data.Maybe
 --import Dodge.WindowLayout
 
-import qualified Data.Set as Set
 import Dodge.Data.CardinalPoint
 import Dodge.Data.SelectionList
 import Dodge.Data.Universe
@@ -21,7 +20,7 @@ optionListDisplayParams =
         , _ldpScale = 2
         , _ldpVerticalGap = 30
         , _ldpWidth = FixedSelectionWidth 50
-        , _ldpCursorType = BorderCursor (Set.fromList [North, South, West])
+        , _ldpCursorType = BorderCursor [North, South, West]
         }
 
 initializeOptionMenu :: String -> [MenuOption] -> PositionedMenuOption -> Universe -> ScreenLayer