diff --git a/src/Dodge/SelectionSections/Draw.hs b/src/Dodge/SelectionSections/Draw.hs index 28234e37a..e5135aab5 100644 --- a/src/Dodge/SelectionSections/Draw.hs +++ b/src/Dodge/SelectionSections/Draw.hs @@ -60,7 +60,6 @@ drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^ maxxoff = maximum . fmap _siOffX $ selitms minxoff = minimum . fmap _siOffX $ selitms let col = white --- col <- fmap (_siColor . fst) $ IM.minView selitms return $ listCursorChooseBorderScale (ldp ^. ldpVerticalGap) @@ -69,6 +68,5 @@ drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^ yint (minxoff + sindent) col - --(sindent + 15 + maxxoff - minxoff) (15 + maxxoff - minxoff) ysize