Cleanup

src/Dodge/SelectionSections/Draw.hs

@@ -6,7 +6,6 @@ module Dodge.SelectionSections.Draw (
 
 import Control.Lens
 import qualified Data.IntMap.Strict as IM
-import Data.Maybe
 import Dodge.Data.Config
 import Dodge.Data.SelectionList
 import Dodge.Render.List
@@ -35,14 +34,14 @@ drawSelectionSections sss ldp cfig =
 
 drawSSCursor ::
     IM.IntMap (SelectionSection a) ->
-    Maybe (Int, Int) ->
     ListDisplayParams ->
     CursorDisplay ->
     Configuration ->
+    Maybe (Int, Int) ->
     Picture
-drawSSCursor sss msel ldp curs cfig =
-    translateScreenPos cfig (ldp ^. ldpPos) $
-        selSecDrawCursor ldp curs sss msel
+drawSSCursor sss ldp curs cfig =
+    translateScreenPos cfig (ldp ^. ldpPos) .
+        selSecDrawCursor ldp curs sss
 
 drawSSMultiCursor ::
     IM.IntMap (SelectionSection a) ->
@@ -53,7 +52,7 @@ drawSSMultiCursor ::
     Configuration ->
     Picture
 drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^. ldpPos)
-    . fromMaybe mempty
+    . fold
     $ do
         (i, j) <- msel
         yint <- selSecYint i j sss
@@ -64,7 +63,6 @@ drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^
             ysize = sum . fmap _siHeight $ selitms
             maxxoff = maximum . fmap _siOffX $ selitms
             minxoff = minimum . fmap _siOffX $ selitms
-        let col = white
         return $
             listCursorChooseBorderScale
                 (ldp ^. ldpVerticalGap)
@@ -72,6 +70,6 @@ drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^
                 curs
                 yint
                 (minxoff + sindent)
-                col
+                white
                 (15 + maxxoff - minxoff)
                 ysize