Stop equip after combining

2023-05-15 06:46:09 +01:00
parent 1cec50c5ab
commit 0735b46266
13 changed files with 38 additions and 112 deletions
@@ -10,7 +10,7 @@ import Picture.Base
 drawSelectionSections :: SelectionSections a -> ListDisplayParams -> Configuration -> Picture
 drawSelectionSections sss ldp cfig =
    translateScreenPos cfig (ldp ^. ldpPos) $
-        listPicturesYgapScaleYoff
+        drawListYgapScaleYoff
            (_ldpVerticalGap ldp)
            (_ldpScale ldp)
            0