Cleanup, stop drawing space characters

src/Dodge/Render/List.hs

@@ -19,7 +19,6 @@ import Dodge.Data.Config
 import Dodge.Data.SelectionList
 import Dodge.ScreenPos
 import Dodge.SelectionList
-import Dodge.SelectionSections
 import Geometry
 import LensHelp
 import ListHelp
@@ -86,7 +85,6 @@ stackPicturesAtOff i = mconcat . zipWith (drawListElement 10 1 0) [i, i -1 ..]
 selSecDrawCursor :: Int -> ListDisplayParams -> SelectionSections a -> Picture
 selSecDrawCursor xsize ldp sss = fromMaybe mempty $ do
     (i, j) <- sss ^? sssExtra . sssSelPos . _Just
-    --yint <- selSecYint i j sss
     yint <- sss ^? sssSections . ix i . ssCursor . _Just . scurPos
     xint <- sss ^? sssSections . ix i . ssIndent
     si <- sss ^? sssSections . ix i . ssItems . ix j