Cleanup

src/Dodge/SelectionSections/Draw.hs

@@ -4,6 +4,7 @@ module Dodge.SelectionSections.Draw (
     drawSSMultiCursor,
 ) where
 
+import Dodge.Data.HUD
 import Control.Lens
 import qualified Data.IntMap.Strict as IM
 import Dodge.Data.Config
@@ -29,7 +30,7 @@ drawSelectionSections sss ldp cfig =
             )
 
 drawSSCursor ::
-    IM.IntMap (SelSection a) -> LDParams -> CursorDisplay -> Config -> Maybe (Int, Int) -> Picture
+    IM.IntMap (SelSection a) -> LDParams -> CursorDisplay -> Config -> Maybe Selection -> Picture
 drawSSCursor sss ldp curs cfig =
     translateScreenPos cfig (ldp ^. ldpPos) .
         selSecDrawCursor ldp curs sss