don't return (buffer, searchList) tuple when building search list, but only return search list itself. (No point returning buffer as it is never modified or moved.)

This commit is contained in:
2025-08-07 14:40:14 +01:00
parent da2d2f1b55
commit 752bb4d00f
2 changed files with 3 additions and 4 deletions

View File

@@ -57,13 +57,12 @@ struct
fun build (buffer, searchString) = fun build (buffer, searchString) =
if String.size searchString > 0 then if String.size searchString > 0 then
let let
val buffer = LineGap.goToEnd buffer
val searchList = search (buffer, searchString) val searchList = search (buffer, searchString)
in in
(buffer, searchList) searchList
end end
else else
(buffer, empty) empty
fun loopNextMatch (pos, searchList, count) = fun loopNextMatch (pos, searchList, count) =
if count = 0 then if count = 0 then

View File

@@ -6,7 +6,7 @@ struct
fun loop (searchMailbox, inputMailbox) = fun loop (searchMailbox, inputMailbox) =
let let
val (buffer, searchString) = Mailbox.recv searchMailbox val (buffer, searchString) = Mailbox.recv searchMailbox
val (_, searchList) = SearchList.build (buffer, searchString) val searchList = SearchList.build (buffer, searchString)
val () = Mailbox.send (inputMailbox, InputMsg.WITH_SEARCH_LIST searchList) val () = Mailbox.send (inputMailbox, InputMsg.WITH_SEARCH_LIST searchList)
in in
loop (searchMailbox, inputMailbox) loop (searchMailbox, inputMailbox)