Cleanup

src/Dodge/Render/List.hs

@@ -9,11 +9,11 @@ import Data.Maybe
 
 -- given a list of pictures that are each the size of a "text" call, displays them as
 -- a list on the screen
-listTextPicturesAt :: Float -> Float -> Configuration -> [Picture] -> Picture
-listTextPicturesAt tx ty cfig = listTextPicturesAtOffset tx ty cfig 0
+listPicturesAt :: Float -> Float -> Configuration -> [Picture] -> Picture
+listPicturesAt tx ty cfig = listPicturesAtOff tx ty cfig 0
 
-listTextPicturesAtOffset :: Float -> Float -> Configuration -> Int -> [Picture] -> Picture
-listTextPicturesAtOffset tx ty cfig i = mconcat . zipWith (listTextPictureAt tx ty cfig) [i..]
+listPicturesAtOff :: Float -> Float -> Configuration -> Int -> [Picture] -> Picture
+listPicturesAtOff tx ty cfig i = mconcat . zipWith (listTextPictureAt tx ty cfig) [i..]
 
 -- displays a cursor that should match up to list text pictures
 -- the width of a character appears to be 9(?!)
@@ -61,7 +61,7 @@ listTextPictureAt xoff yoff cfig yint = winScale cfig
     hh = halfHeight cfig
 
 renderListAt :: Float -> Float -> Configuration -> [(String,Color)] -> Picture
-renderListAt tx ty cfig = listTextPicturesAt tx ty cfig . map (\(str,col) -> color col $ text str)
+renderListAt tx ty cfig = listPicturesAt tx ty cfig . map (\(str,col) -> color col $ text str)
 --    concatMapPic (winScale cfig) . zipWith (listPairAt tx ty cfig) [0..]
 
 --TODO put the following functions in an appropriate place