delete some dead code
This commit is contained in:
@@ -69,7 +69,7 @@ struct
|
||||
let
|
||||
val searchString = "val "
|
||||
val (buffer, searchList) =
|
||||
SearchLineGap.build (#buffer app, searchString)
|
||||
SearchList.build (#buffer app, searchString)
|
||||
val buffer = LineGap.goToStart buffer
|
||||
in
|
||||
AppWith.searchList (app, searchList, buffer, searchString)
|
||||
|
||||
@@ -33,9 +33,6 @@ struct
|
||||
val app = AppUpdate.update (app, inputMsg)
|
||||
handle e => ExceptionLogger.log e
|
||||
|
||||
val searchList = #searchList app
|
||||
val searchList = SearchList.toString searchList ^ "\n"
|
||||
|
||||
val () = sendMsgs (#msgs app, drawMailbox)
|
||||
in
|
||||
loop (app, inputMailbox, drawMailbox)
|
||||
|
||||
Reference in New Issue
Block a user