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) =
|
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
|
||||||
|
|||||||
@@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user