justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2025-09-19 19:56:12 +01:00
parent 2d856ddf9e
commit d4f2cdd3fd
20 changed files with 282 additions and 351 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/SelectionSections/Draw.hs
+3 -3
View File
@@ -14,7 +14,7 @@ import Dodge.SelectionSections
import Picture.Base
drawSelectionSections ::
IM.IntMap (SelectionSection a) ->
IM.IntMap (SelSection a) ->
ListDisplayParams ->
Config ->
Picture
@@ -33,7 +33,7 @@ drawSelectionSections sss ldp cfig =
)
drawSSCursor ::
IM.IntMap (SelectionSection a) ->
IM.IntMap (SelSection a) ->
ListDisplayParams ->
CursorDisplay ->
Config ->
@@ -44,7 +44,7 @@ drawSSCursor sss ldp curs cfig =
selSecDrawCursor ldp curs sss
drawSSMultiCursor ::
IM.IntMap (SelectionSection a) ->
IM.IntMap (SelSection a) ->
Maybe (Int, Int) ->
Maybe Int ->
ListDisplayParams ->