Cleanup

src/Dodge/Render/List.hs

@@ -32,7 +32,7 @@ import LensHelp
 import ListHelp
 import Picture
 
-drawSelectionList :: ListDisplayParams -> Configuration -> [SelectionItem a] -> Picture
+drawSelectionList :: ListDisplayParams -> Config -> [SelectionItem a] -> Picture
 drawSelectionList ldps cfig sl =
     translateScreenPos cfig (ldps ^. ldpPos) $
         drawListYgapScaleYoff
@@ -41,7 +41,7 @@ drawSelectionList ldps cfig sl =
             0
             (makeSelectionListPictures sl)
 
-drawTitleBackground :: Configuration -> Picture
+drawTitleBackground :: Config -> Picture
 drawTitleBackground cfig =
     translateScreenPos cfig (fromTopLeft (V2 (subInvX - 5) 75))
         . polygon
@@ -50,7 +50,7 @@ drawTitleBackground cfig =
 
 drawSelectionListBackground ::
     ListDisplayParams ->
-    Configuration ->
+    Config ->
     Int -> -- list length
     Picture
 drawSelectionListBackground ldp cfig l =
@@ -164,7 +164,7 @@ chooseCursorBorders w h = \case
     toLine South = [V2 w h', V2 0 h']
     toLine West = [V2 0 h', V2 0 0]
 
---fillScreenText :: Configuration -> String -> Picture
+--fillScreenText :: Config -> String -> Picture
 --fillScreenText cfig str =
 --    scale wscale hscale
 --        . centerText
@@ -175,7 +175,7 @@ chooseCursorBorders w h = \case
 --    hw = halfWidth cfig
 --    hh = halfHeight cfig
 
---fillWidthText :: Configuration -> String -> Picture
+--fillWidthText :: Config -> String -> Picture
 --fillWidthText cfig str =
 --    scale thescale thescale
 --        . centerText
@@ -216,5 +216,5 @@ dShadCol :: Color -> Picture -> Picture
 {-# INLINE dShadCol #-}
 dShadCol c p = color black (translate 1.2 (-1.2) p) <> color c p
 
-toTopLeft :: Configuration -> Picture -> Picture
+toTopLeft :: Config -> Picture -> Picture
 toTopLeft cfig = translate (- halfWidth cfig) (halfHeight cfig)