Work on selection lists and option menus

src/Dodge/Render/List.hs

@@ -1,6 +1,5 @@
 module Dodge.Render.List where
 
---import LensHelp
 import Data.Foldable
 import Data.Maybe
 import Data.Set (Set)
@@ -13,7 +12,7 @@ import Dodge.Data.SelectionList
 import Geometry
 import ListHelp
 import Picture
-import LensHelp
+--import LensHelp
 
 drawSelectionList :: ListDisplayParams -> Configuration -> SelectionList -> Picture
 drawSelectionList ldps cfig sl =