Refactor close objects hud display

2024-11-24 16:12:35 +00:00
parent e6c2b659fd
commit 81fcfea1be
11 changed files with 205 additions and 220 deletions
@@ -26,7 +26,7 @@ drawSelectionSections sss ldp cfig =
            (_ldpScale ldp)
            0
            (foldMap 
-                (\ss -> fmap (translate (100*fromIntegral (_ssIndent ss)) 0) $ _ssShownItems ss) sss)
+                (\ss -> translate (100*fromIntegral (_ssIndent ss)) 0 <$> _ssShownItems ss) sss)

 drawSSCursor ::
    IM.IntMap (SelectionSection a) ->