From 26bb0a3733f61659d739e50d83fdda09f452f200 Mon Sep 17 00:00:00 2001
From: Julian Hurst <ark@mansus.space>
Date: Wed, 6 Sep 2023 23:27:23 +0200
Subject: libtui: Free the result value of strings::concat in print

---
 libtui/libtui.ha | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/libtui/libtui.ha b/libtui/libtui.ha
index 5f862b0..9f74050 100644
--- a/libtui/libtui.ha
+++ b/libtui/libtui.ha
@@ -140,7 +140,9 @@ export fn addlistener(ui: *ttyui, l: listener) void = {
 // Print a string or rune to the ttyui.
 export fn print(ui: *ttyui, arg: str) void = {
 	if (ui.doclear) {
-		fmt::fprint(ui.f, strings::concat(CLEARESC, arg))!;
+		let out = strings::concat(CLEARESC, arg);
+		defer free(out);
+		fmt::fprint(ui.f, out)!;
 		ui.doclear = false;
 	} else {
 		fmt::fprint(ui.f, arg)!;
-- 
cgit v1.2.3