Work on cursor for lists

2023-05-10 01:44:42 +01:00
parent 93519345de
commit cd42e29012
11 changed files with 53 additions and 45 deletions
@@ -124,7 +124,7 @@ debugDraw :: Configuration -> World -> Picture
 debugDraw cfig w
    | Enable_debug `S.member` _debug_booleans cfig =
        pic
-            <> setLayer FixedCoordLayer (toTopLeft cfig (translate (0.5 * halfWidth cfig) 0 $ listPicturesAt $ map text ts))
+            <> setLayer FixedCoordLayer (toTopLeft cfig (translate (0.5 * halfWidth cfig) 0 $ drawList $ map text ts))
    | otherwise = mempty
  where
    pic = foldMap (debugDraw' cfig w) (_debug_booleans cfig)