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:
@@ -57,13 +57,12 @@ struct
|
||||
fun build (buffer, searchString) =
|
||||
if String.size searchString > 0 then
|
||||
let
|
||||
val buffer = LineGap.goToEnd buffer
|
||||
val searchList = search (buffer, searchString)
|
||||
in
|
||||
(buffer, searchList)
|
||||
searchList
|
||||
end
|
||||
else
|
||||
(buffer, empty)
|
||||
empty
|
||||
|
||||
fun loopNextMatch (pos, searchList, count) =
|
||||
if count = 0 then
|
||||
|
||||
@@ -6,7 +6,7 @@ struct
|
||||
fun loop (searchMailbox, inputMailbox) =
|
||||
let
|
||||
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)
|
||||
in
|
||||
loop (searchMailbox, inputMailbox)
|
||||
|
||||
Reference in New Issue
Block a user