Cleanup

src/Dodge/Render/List.hs

@@ -31,7 +31,7 @@ import LensHelp
 import ListHelp
 import Picture
 
-drawSelectionList :: ListDisplayParams -> Configuration -> SelectionList a -> Picture
+drawSelectionList :: ListDisplayParams -> Configuration -> [SelectionItem a] -> Picture
 drawSelectionList ldps cfig sl =
     translateScreenPos cfig (ldps ^. ldpPos) $
         drawListYgapScaleYoff
@@ -59,8 +59,8 @@ drawSelectionListBackground ldp cfig l = translateScreenPos cfig (ldp ^. ldpPos)
     s = - (5 + fromIntegral l * (20 * ldp ^. ldpScale + ldp ^. ldpVerticalGap))
     e = 555 -- HACK isOverTerminalScreen
 
-makeSelectionListPictures :: SelectionList a -> [Picture]
-makeSelectionListPictures = concatMap f . _slItems
+makeSelectionListPictures :: [SelectionItem a] -> [Picture]
+makeSelectionListPictures = concatMap f
   where
     f si = map (color (_siColor si) . text) $ _siPictures si