Cleanup

2025-01-06 01:05:56 +00:00
parent e5cbac480e
commit c20486fc34
6 changed files with 19 additions and 94 deletions
@@ -25,11 +25,13 @@ drawSelectionSections sss ldp cfig =
            (_ldpVerticalGap ldp)
            (_ldpScale ldp)
            0
-            (foldMap 
-                (\ss -> translate (100*fromIntegral (_ssIndent ss)) 0 <$> 
-                --(take (_ssShownLength ss) $ _ssShownItems ss)) sss)
-                    (_ssShownItems ss)
-                ) sss)
+            ( foldMap
+                ( \ss ->
+                    translate (100 * fromIntegral (_ssIndent ss)) 0
+                        <$> _ssShownItems ss
+                )
+                sss
+            )

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