Cleanup

src/Dodge/Render/List.hs

@@ -1,6 +1,6 @@
 module Dodge.Render.List where
 
-import Data.Foldable
+--import Data.Foldable
 import Data.Maybe
 import Dodge.Base.WinScale
 import Dodge.Base.Window
@@ -102,7 +102,7 @@ listCursorChooseBorder = listCursorChooseBorderScale 10 1
 
 -- note we cannot simply scale lines because they are drawn as solid rectangles
 chooseCursorBorders :: Float -> Float -> [CardinalPoint] -> Picture
-chooseCursorBorders wth hgt = fold . map (line . toLine)
+chooseCursorBorders wth hgt = foldMap (line . toLine)
   where
     top = 0
     bot = - hgt